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Greetings! Perhaps you have already heard of the government 
weather control experiment that was based right here in Sault Ste. 
Marie this year. The idea was to divert the jet stream farther 
north, thus keeping most of the snow and extremely cold weather in 
northern Canada, and permitting a longer shipping season through 
the Sault locks and on Lake Superior. The entire apparatus was 
controlled by several 2-80 based microcomputers. The experiment 
was a dismal failure, and no one could figure out why, until it was 
discovered that someone had programmed a machine language JR C 
instruction (jump if Carry flag is set) where there should have been 
a JR NC instruction (jump if Carry flag is NOT set). The net result 
of this syntax error was that instead of diverting the cold weather 
to the north, it pushed all the snow and cold that Sault Ste. Marie 
usually gets to the south instead. Rumor has it that the 
programmer in question owned some stock in a ski resort located 
just north of Sault Ste. Marie, Ontario, Canada. 

At one point the computer was instructed to divert a 
particularly bad storm to the far north, near James Bay. 
Unfortunately, the programming error caused it to divert the storm 
to the south instead, so that the worst part of the storm centered 
on an area near Tullahoma, Tennessee. Anyway, the folks here in 
Sault Ste. Marie apologize for sending our weather south, but the 
public relations people in Washington are still insisting that it was 
a computer foul-up (when they will even condescend to talk about it 
at all). Even so, government funding for the program has been cut, 
which means we won't be able to divert any of our cool northern air 
to the south this summer. Sorry about that. 

Well, if this issue of NORTHERN BYTES experiences the 

usual publication and mailing delays, you should be seeing some 

^spring weather by the time you get this issue. In fact, this issue 

iuld reach you on or about the First of April. Keep that date in 

,od if you find the information in the above paragraphs a bit hard 

to swallow! 

On to the real world. Winter is the time of year when it's 
most convenient for us computer nuts to stay indoors and hack . 
away. One by-product of this is that I get' MANY more article 
submissions in the winter than in the warmer times of the year. So, 
if you've sent an article recently and it hasn't appeared yet, please 
be patient - it will probably appear in the not too far distant 
future, On the other hand, certain articles I have received may 
never appear, simply because they are too difficult to process. 

Polks, I think I've spent paragraphs and paragraphs in 
NORTHERN BYTES trying to educate folks as to how to make life a 
little easier for your editor. Why should you care? Because I only 
have so many hours to devote to working on Northern Bytes. If I 
find I am spending too much time on it, I may very likely call the 
whole thing off! And even if I continue, believe me when I say that 
you will have a better newsletter if you can just help me out a 
little. So, here's this month's DO's and DON'Ts of newsletter 
article submission! 

1) DON'T submit articles or program listings on paper (or 
other hardcopy). Unless they're VERY short (one or two 
paragraphs), it takes me a VERY LONG time to re-type them. 
Please - send a disk, send a tape, send me some MCI Mail, or send 
your secretary up to do the typing! 

2) DON'T forget to put the TEXT FILE on your disk. This 
includes the text file of the cover letter you send me, if any 
(particularly since the cover letter is the only way some of you 
document your programs!). It's very frustrating to get all the 
program listings on a disk, along with PRINTED documentation. I 
can use text from virtually any word processing program (please 
save the text file in "ASCII format" if your word processor gives 

^ou that option, especially if you use. SuperScripsit ). DON'T 
' 7GET THE TEXT FILE! 

3) VERY IMPORTANT - DON'T send your articles to The 
Alternate Source - DO send them directly to NORTHERN BYTES in 
Sault Ste. Marie (the address can always be found on the back page, 
in the "return address" area). If you ignore this "DON'T", the 
chances are very good (for various reasons that are not necessarily 



the fault of TAS) that your articles will never be published at all. 
So if you've gone to all the trouble to write an article for 
NORTHERNBYTES, don't (in effect) throw it away by sending it to 
Lansing - send it directly to NORTHERN BYTES! 

4) Here's a DO - now that you've decided to send a disk, 
PLEASE DO resist the urge to. fill it up! If you decide to put a few 
"odds and ends" on the disk, it means that I have to go through the 
entire disk to figure out what's what, and that steals time that I 
could otherwise be using to prepare the newsletter (not to mention 
the fact that it leaves me with a rather negative impression of the 
person who sent the disk)! If you do send more than one submission 
for Northern Bytes, please be sure that EACH submission has a 
text file and that I have some way of knowing which files go with 
which articles. 

5) DO be sure to SPECIFICALLY STATE if you want your disk 
returned. I assume you do NOT unless you say you do. And even 
then, please allow at least a month turnaround time (I am usually 
lucky if I am ONLY a month behind!). And put a label with your 
name and address on the disk, so that if it accidentally gets mixed 
in with other disks, I know which is yours. 

6) Once your article has been published, DO check the mailing 
label on that issue and see if I have credited you with a six-month 
extension to your "subscription". If I have not, check the label on 
the NEXT issue you receive. If you still haven't received credit, 
drop me a line and chew me out! 

Most of the above is just "common sense" - but you'd still be 
surprised how many folks seem to think that I enjoy re-typing 
material. As I've stated before, this is a Dne-person operation, I 
don't have a secretary, and I do NOT enjoy re-typing letters or 
articles! 

If you ignore any of the above, you run the risk of having yDur 
article submission ignored - not necessarily intentionally, it just 
happens that way sometimes. The two VERY WORST things you can 
do art to leave something important off of your submission disk (or 
tape), - either the text file or the program listing - or to send your 
submission to The Alternate Source instead of to NORTHERN 
BYTES (by the time it reaches me, IF it reaches me, nobody's really 
sure what your intentions for the disk were - that's especially true 
if the disk and your cover letter and/or documentation get 
separated, as sometimes happens). 

Speaking of The Alternate Source - some of you may have 
heard a rumor that TAS went bankrupt. Well, .as you can see, TAS is 
still in business. What in fact happened was that TAS filed for a 
"Chapter 11" bankruptcy, which is basically a debt relief measure. 
TAS customers did not feel any impact at all from this - it was 
"business as usual" from the customer's standpoint. What it does 
mean is that some of the folks to whom TAS owed money will have 
to wait a little longer, and can't come around and start hauling away 
the fixtures.. Hopefully, everyone to whom TAS owes anything will 
get paid the full amount owed them in the not too far distant future. 
Once again, I want to emphasize that no TAS customer lost 
anything, and that TAS is still very much in business. That's a good 
thing for NORTHERN BYTES readers, too, because even though TAS 
doesn't own NORTHERN BYTES, if they were ever to discontinue 
operations, I can assure you that I do NOT have the resources to 
publish this newsletter myself. 

It seems that many of the firms that have offered support for 
the TRS-80 are in some sort of difficulty these days. I suppose 
that somt of the blame can be laid at Tandy's doorstep (for their 
lack of support for third-party vendors), but one of the largest 
expenses for any company is advertising. In the TRS-80 market, 
there is only one large TRS-80 related magazine, and their 
advertising rates might be considered prohibitive, especially for 
the small to medium-size software house. NORTHERN BYTES at 
present has a circulation of approximately 1500 copies per issue 
(although that's NOT audited, you'll just have to take my word for 
it) and we exchange publications with most of the TRS-80 user 
groups (the ones we know about, anyway). Right now we charge 
•60.00 for a full, page ad (and will sell space in 1/6 page 



incraments). That rate will increase if our circulation increases, 
but for right now. where else can you buy 1/6 of a paga in a 
publication directed specifically to TRS-80 Modal I/III/4/4P users 
for only tiO? Perhaps tha fact that wa dfl «*U ad space may ba ona 
of our batt-kapt secreti, but wa raally do! 

That's enough of my rambling for thii month. 111 dose by 
once again reminding you that if you want to tend us your VISA or 
Mastercard number and expiration date, we will add you to the 
NORTHERN BYTES mailing list and automatically send you (and bill 
you 92.00 for) each new issue. If you live outside North America, 
please state whether you want airmail delivery (which costs tl.00 
extra). If we gat enough of these, who knows, we might be able to 
publish more regularly! 

THE EXTERMINATOR 

Most of the BUGS reported this month are in the "letters to 
the editor", but I must mention that I jumped the gun in this column 
back in Volume 5 Number 8. when I reported that M.D. Kerby had 
problems with Don Brate's program that patches TRSDOS 1.3. Well, 
it turns out that M.D. got bitten by the infamous TYPO bug (that's 
the one that strikes when you've spent too many hours typing at a 
stretch. It strikes all computer users every now and then, and 
unfortunately, there doesn't seem to be any immunity). Once he got 
a copy of TRSPATCH/BAS off of TAS Public Domain Library disk # 
004, he had no further problems, and reports that TRSPATCH/BAS 
does everything claimed for it. So. please ignore the warning about 
TRSPATCH/BAS in Volume 3, Number S! 



substitutes a neat and succinct Reverse Video DISK BASIC 
message. 

The last patch is to ROM BASIC'S 'READY' prompt, Model 4P 
users, like myself, can change the MODELA/III file or both Model 4 
and 4P users could temporarily make the change with this short 
routine. 



START 



LETTERS DEPARTMENT 
Neither rain, nor snow, nor sleet, nor gloom of night shall 
prevent these letters from arriving here at NORTHERN BYTES (but 
when we get four feet of snow on the ground, it tends to slow them 
down a little!)! 



Date*. Mon Jan 14, 1983 1J17 am EST ••RECEIPT 

From! Anthony J. Domigan / MCI ID! 254-5121 

TO! * Jack Decker / MCI ID! 102-7413 

Subject! T.Domigan - Letter 

Jack. 

Here are a couple of tidbits that may be useful to other 
Northern Bytes readers. 

In NEWDOS/80 version 2 for the Model 3 there is a handy 
SYSO permanent routine to convert a byte pair or a single byte to 
its ASCII equivalent via a DAA routine. 

With the byte pair to display in DE and the buffer address in 
HL, a call to 44D2H will load the buffer with the ASCII of the DE 
byte pair. 

(.9, LD HL.XOOH {BUFFER - IN THIS CASE DIRECT TO SCREEN 
LD DE.123* {BYTE PAIR TO DISPLAY 
CALL UD2H '.DISPLAY 2 HEX BYTES 12 AND 31 TO SCREEN 

A single byte may also be converted by entering this routine a 
little further on, at 44D7H, with the value to convert in A and the 
buffer pointed to by HL again, 

e.9. LD HL.XOOH {BUFFER - IN THIS CASE DIRECT TO SCREEN 
LD A.2FH {HEX BYTE TO DISPLAY 

CALL 4«7H {DISPLAY HEX BYTE 2F TO SCREEN 

These routines are handy as they can be used without concern 
for DOS links and are permanently available like the ROM. 

For Video4(KB) users here are some trivial enhancements to 
Newdos. I modified the 'NEWDOS/80 READY', the 'DISK BASIC 
and the 'READY' prompts. Did I hear a groan? Yes, I know its been 
done many times before, but this is a little different (I defend). I 
modified them all to display in reverse video and for the prompts to 
give a 'bell'. 

The 'NEWDOS/80 READY' can be found in SYS1/SYS,04,E0. 

find 4E45 5744 4F3Z ZF38 3020 5245 4144 590D 
ch9 104E 4557 444F 5320 5245 4144 5911 070D 

The DISK BASIC LOGO can be found in BASIC/CMD, 16,79. 
The code begins with 1C IF DISK BASIC 20 20 etc. and I changed it 
to IF 10 DISK BASIC 11 0D. This saves an unnecessary CLS, and 



ORG 


5200H 




DI 






LD 


A.05H 


{Open ROM (in 80:<24) 


OUT 


(84H),A 


* 
» 


LD 


BC.05H 


{5 chars to Move 


LD 


HL.CHG 


{Point to new bytes 


LD 


DE.1929H 


{ROM patch point 


LDIR 






LD 


A.04H 


{80x24 


OUT 


<84H),A 


{Reinstate ROM 


EI 






JP 


402DH 




DEFB 


10H 


{Reverse video 


DEFM 


'OK' 


{New pronpt 


DEFW 


0711H 


{Bell 8. normal video 


END 


START 





CHG 



Fortunately, these changes do not cause any ill effects in 
Newdos when Video4(KB) is not active, so they are reasonably 
harmless mods to the DOS. 

Tony Domigan 
P.O. Box 150, Thomastown, Victoria, 3074, Australia 

[Thanks for passing along this info, Tony. I did some checking and 
it turns out that Model I users can also make use of the 
NEWDOS/80 hexadecimal display routines you mentioned, but they 
are at different locations in the Model I version of NEWDOS/P0. 
The equivalent starting addresses in the Model I version are 4063H 
and 4068H (instead of 44D2H and 44D7H respectively). 1 



Dear Jack, 

Hi. I'm the Editor of the INTERFACE, the Newsletter of the,.. 
San Gabriel Valley TRS-80 Users Group (SAGATUG). Our Preside' 
Andy Levinson, came upon Volume 5, #1-7, of NORTHERN BYT. 
(although I'm not sure where he got them). He knows hiw desperate 
I am for material to put in the INTERFACE, so he gave thnm to m?, 

I am very impressed with NORTHERN BYTES. There is a 
wealth of useful information in there. I plan on reprinting several 
of the articles. . . with proper credit of course, I'm glad to have 
some quality material to publish, and delighted that you have mads 
it available for reprinting. 

Our club is a TRS-80 only organization. We seem to be 
unusual in that our club is thriving, in a time when TRS-80 related 
clubs (and magazines) seem to be disappearing. Our membership is 
about 100. Most members have Model Ill's and 4's - the 4P is 
extremely popular. A few members are still using Model I's. I 
bought my Model I in 1978, and I still use it to access the BBS 
systems, 

I was particularly interested in one article in Volume 5 
Number 7 - the directions for making a NEWDOS/80 disk that loads 
the ROM image and auto-boots on the 4P. In fact, I think most 4P 
owners who use NEWDOS/80 would be very interested, especially 
since Apparat seems totally disinterested in supporting the Model 4 
(at least that's what they told me when I called them to ask!!). We 
had just discussed making an autobooting NEWDOS/80 disk at the 
last dub meeting, and concluded it would not be possible because of 
the hardware in the 4P, Obviously we were wrong!! 

I followed the directions as outlined, but they wouldn't work 
at first. I think there are a few typos in the artide. 

First, obviously, the NDP=NEWDOS4P in the copy instruction 
should be NDN (new diskette name). Then, the bytes to change in 
the MODELA/III file are at Sector 53, relative byte A9, not 
relative byte 39 as stated in the artide. 

In addition, if you zap a length of 9 grans for the ROM image, 
then you can't change sector 53 - SUPERZAF quits at relative sectojL^ 
50 with a "Can't extend file via read" error. The MODELA/III f 
is 57 sectors long, which is almost 12 grans (5 sectors/gran), i 
trusty copy of "TRS-80 Disk and Other Mysteries" tells me that 
byte is the # grans - 1, so it should be OC - 1 = OB. I'm not sure 
why he shortens the file to 09. Anyway, if you leave it OB, then 
SUPERZAP allows the changes at sector 53. 

With those changes, it WORKS!! The NEWDOS/80 disk loads 
the ROM and boots. BUT (there's always a BUT), if you make a 



backup using COPY !0 !1 00/00/00, the copy won't boot. It seems 
that NEWDOS/80 re-writes track 1, sector 0, rather than copying 
the nice zero'd and zapped sector we made. You have to use 
SUPERZAP on the copy's track 1, sector 0. Then it works OK. 

Also, if you DO zap the length to 09 as mentioned in the 
article, it also boots OK. But if you try to backup the disk, the 
,-copy o.uits with an "ERROR IN SECTOR 50, FILE MODELA/III" 
issage. So I think it's better to leave the length 0B. 

Now for MY problem. My 4P has a 40/40 double headed drive 
as drive 0, so I want to make an auto-booting two-sided disk. I've 
been trying, but no luck yet. I'll describe what I've done so far, and 
maybe you can help. 

Double sided drives have 36 sectors per true track, so I made 
a disk with the directory on sector 720 (DDSL » 72). SUPERZAP 
verified that the directory really ended up on true track 20. So far 
so good. Next, I CREATEd MODELA/III on that disk and zapped its 
FPDE. I wanted the file to copy over to true track 30. Since there 
are 36 sectors per true track, and 10 sectors per relative track, true 
track 30 * 3.6 « relative track 108. This is 6C hex. So I zapped the 
FPDE with 6C0B, and copied over MODELA/III. I checked with 
SUPERZAP - the file started on true track 30, sector 0. That 
seemed to be OK. I changed the GAT entries at 6C and following to 
FF to show the file was there. I zapped the MODELA/III file at A9 
to get NEWDOS to boot from track 0, and zero'd and modified track 
1, sector as in the article. Finally I zapped the FPDE again (as 
given in the article) to show the file starting at IE (apparently the 
hardware reads the directory in true tracks when loading the ROM 
image, but NEWDOS/80 COPY reads the directory in relative tracks, 
and 1E0B shows the file starting at track 30). 

So it SHOULD work. When I boot it, though, the ROM begins 
to load (I get the "ROM loading" message, and I hear the drive 
stepping), but, just at the end of the load, just at the point I expect 
it to boot NEWDOS, I get the message "Can't load ROM Image - Too 
Many Extents" in three languages!!! I can't figure it out - I only 
have the one extent in the directory. The rest are FF, just as 
they're supposed to be. Any ideas? 

Well, I'll let you get back to your hacking. As Editor of a 

newsletter myself, I know how much effort goes into what you're 

doing. I just want you to know that those of us who are using, 

^^enjoying, (and depending on) our TRS-80s really appreciate the kind 

" support NORTHERN BYTES provides. I'm not smart enough to 

itch the ROM myself, but I'm glad there are people who are, and 

I'll be happy to spread the information as best I can. 

John T. Phillipp 
815 South Walnut, San Dimas, California 91773 

[John, I'm glad to hear that you've found NORTHERN BYTES a 
valuable source of information for your user group newsletter! I 
passed your letter along to Tony Domigan (author of the article in 
question), and his reply follows!] 



With that it is done, This configuration is acceptable to both 
NEWDOS and the on-board loader and importantly the usc**i 
NEWDOS backup, i.e. COPY ,0,1 „FMT etc. will properly back-up th= 
disk. 

REVISED PATCH TO ALLOW NEWDOS/80/v2 TO AUTO-BOOT 
MODELA/III. 

Assuming system disk in drive and destination disk in drive 1. 

1. FDRIVE,0,1,DDSL«29,A<CR> 

2.COPY,0,1,02/02/83,CBF,/SYS,FMT<CR> 

Assuming new system disk on drive 0. 

3. CREATE MODELA/III50<CR> 

4. Using SUPERZAP modify MODELA/III FPDE - Rel.Sector 299 for 



find 

1000 0000 001D 1FU WC 1120 ZM9 1919 M0OELA..ni 

941Z 9612 0000 FFFF FFFF FFFF FFFF FFfT .B.B 

charts* to 

1000 0000 00H> 4F44 451C 1120 2019 1919 M0DELA..rn 

9412 9412 0000 3400 FFFF FFFF FFFF FFFF .B.B..4 



5. COPY MODELA/IIISl SO SPDN=4<CR> ' if 4=TRSDOS for you 

6. Using SUPERZAP CDS Copy 10 Disk Sectors from 290 to 522 

7. Using SUPERZAP modify the transferred FPDE for MODELA/III 

fron (sector 531 on m disk) 

1020 0000 0010 1FM 131C 1120 2019 1919 ..,.,MO0ELA..rn 

9412 9412 3900 340B FFFF FFFF FFFF FFFF .B.B9.1 

to 

1000 0000 00H> 1FH «« 1120 2019 1919 HD0ELA..D3 

9412 9412 3900 1F.09 FFFF FFFF FFFF FFFF .B.B9 

8. Using SUPERZAP modify the REAL FPDE of MODELA/III 

fron (sector 529 on fly disk) 

1020 0000 00H) 1FM IMC 1120 2019 1919 H00OA..m 

9442 9442 3900 340B FFFF FFFF FFFF FFFF .B.B9.1 



Jack, 

Following John Phillipp 's enquiry I re-examined my 4P auto- 
ROM boot patch for NEWDOS/80. I worked through a couple of 
part-patches before the most logical course became obvious to me. 

The solution was to prepare a NEWDOS/80 system disk with a 
directory painter satisfactory to both Newdos and the on-board 
loader (which will be looking for an LDOS DIR pointing to the 
MODELA/III file). 

I configured NEWDOS with a directory on lump 29 or sector 
290. The on-board loader will read the DIR pointer from the boot 
sector and interpret this as true track 29 or sector 522. 

A MODELA/III FPDE is created and patched to load to track 
30 or sector 360. MODELA/III is copied from TRSDOS to the new 
disk and is loaded to track 30 onwards. 

The NEWDOS directory is copied from lump 29 to track 29 for 
the on-board loader to read. The moved FPDE for MODELA/III is 
modified to reflect the track and gran count pertinent to an LDOS 
FPDE of this file. 

The original FPDE in lump 29 of NEWDOS is modified to show 
the MODELA/III file starting at track 29, adding the extra length 
to the gran and sector count so that as far as NEWDOS is concerned 
is a contiguous file block. This file contains The LDOS-type 
^DDELA FPDE followed by some spare space (care to store these 
instructions there?) and then followed by the original unmodified 
MODELA/III. 

It's nearly all done except to fix-up the GAT. Running 
DIRCHECK tells us which bytes of the GAT must be modified to 
allocate the extra grans the new MODELA/III length. 



to 

1020 0000 0010 1F11 151C 1120 2019 1919 N0DELA..IJI 

9442 9412 WOO 34CF FFFF FFFF FFFF FFFF .B.6M.4 

9. Execute DIRCHECK to check for the lumps to be allocated 
(following the step 8 lengthening of the Newdos file). My readout 



NEW0S4P 00/00/00 

34.0 mix GRANULE FREE, BUT ASSIGNED TO FILE(S) 47 HODELA/m 

31.1 ran GRA'WLE FREE, BUT ASSIGNED TO FILE(S) 47 HODELA/IH 

35.0 ran GRANULE FREE, BUT ASSIGNED TO FU£(S) 47 MODELA/m 

35.1 ram GRANULE FREE, BUT ASSTO3) TO FILE(S) 47 H0C£LA/rn 
34,0 ran GRANULE FREE, BUT ASSIOCD TO FILE(S) 47 HGOELA/in 



10. Using SUPERZAP go to the GAT sector (290) and modify relative 
bytes indicated by DIRCHECK. 

e.g. relative byte 34 = FC change to FF i.e. allocate both grans, 
relative byte 35 = FC change to FF i.e. allocate both grans, 
relative byte 36 = FE change to FF i.e. allocate 1st gran also. 

11. Reboot NEWDOS holding dawn the 'L' key - it should load the 
MODELA/III file and execute NEWDOS/80 successfully. 

Tony Domigan 

P.O. Box 150, Thomastown, Victoria, 3074, Australia. 

* MCI-ID 1 254-5121 » SOURCE-ID ! BCT039 ♦ 



Dear Jack Decker , 

... CIn order] to optimize the contact between TRS-80 users, 
I'd like to found a mailbox for TRS-80 users on packet-switching 
network. This will make it possible for TRS-80 users to contact 
other TRS-80 users world wide at an acceptable charge. What do 
you think about this? Perhaps you can note this inside your 
newsletter. 

You may send me a letter into my mailbox, please use (Datex- 
p, West Germany) NUA 45 6673 30070.ZCZCOB address your letter to 
G .SENDER , password! SENDER . 

I'm looking forward to your answer. 

Gerd Sender 
Moselstrasse 39, 5000 Koeln 50, West Germany 

[I like your idea about having a contact for TRS-80 users on a 
packet-switching network. I've thought about doing something like 
this myself, but so far I have not found any cost-effective way to 
do it. 

As for your "Datex-p" mail address, unfortunately I do not 
have enough information to be able to access it. As far as I can 
determine, in order to be able to access it, I would have to have a 
prepaid account on one of the U.S. packet switching networks. Very 
few personal computer users have such a thing. Here in the U.S., 
the host computer normally pays the network charges, then bills 
them back to the user. For example, CompuServe Information 
Service permits access via Telenet or Tymnet, but bills »2.00 per 
hour extra for access via these networks. Thus the user does NOT 
have to have a prepaid account with Telenet or Tymnet. 
Furthermore, as I understand it, some countries (such as Canada) 
simply do not offer user-prepaid accounts on their data networks 
(in Canada, Bell Datapac will bill the host computer only at 
present). 

NORTHERN BYTES is in a particularly strange situation, due 
to being at some distance from any major U.S. city. Thus, we are 
totally unable to access Tymnet, without paying a long-distance 
telephone charge. Telenet and Autonet are available to us over 
toll-free ("800" area code) numbers, but these usually carry an 
additional surcharge (which is usually higher than the rate for a 
regular long-distance telephone call to the host computer!). Thus, I 
am not a subscriber to any of the packet networks or services such 
as CompuServe, The Source, etc. I am hooked up to MCI Mail, an 
electronic mail service herB in the U.S. that is also available 
worldwide. Unfortunately, MCI Mail does not support "bulletin 
board" type operation - mail can only be sent from one user to 
another - and even it can get rather expensive, at *1.00 per 
"computer letter" (plus, I have to pay 15 cents per minute to access 
MCI's 800 "toll-free" number). My MCI Mail ID is 102-7413. I also 
have a TELEX number through this service, which is 6501027413 
(answerback is 6501027413 MCI). Unfortunately, that is the only 
electronic mail service that I can access at present! 

But I do like the concept, and if you can find a cost-effective 
way to do it, please let us know!] 



Dear Jack, 

,., In conjunction with tal project which is to be done on a 
Model II, I ran into some interesting facts. Apparently Logical 
Systems worked up a Model 11/12 version of TRSDOS 6 but then 
never marketed the product. My guess (sheer speculation, mind you) 
is that they tried to sell the idea to Tandy and they wouldn't buy. 
Anyway, it is possible to get a copy of this DOS, and here's how you 
do it! First, call or write Logical Systems and tell them you're 
interested in the DOS. They will send you a license agreement to 
sign and return with *100. For this you get LS-DOS 6.2, runable on 
a Model II or 12 and functionally 97% identical to the Model 4 
version. You also get about a half-doien pages of documentation 
explaining, I guess, the other 3 per cent, and this plus the Model 4 
Technical Reference Manual should be all you need to know. It 
doesn't come with a BASIC, but you can get a copy of Model 4 BASIC 
on it and it will run fine. Anyway, the catch to this whole thing is 
that, since you're getting the fruits of an abandoned project . . . 
well, remember that license agreement I mentioned? You guessed 
it! you get absolutely NO support from LSI! The only support is via 
other users on the LSI SIG of CompuServe. This strikes me as a 
new high in audacity, but the funny part is, the idea of being able to 
write software on my Model 4 for the Model II or 12 is so attractive 
I may well buy the product in spite of this, if a quick visit to 
CompuServe turns up some people who are successfully working with 
it. And I'm sure that's just what LSI is banking a lot of other 
people will do. I can now see why LSI and Tandy make such good 
bedfellows! they both know when they gotcha! 



Bob Grommes 
1733 Eastern S.E., Grand Rapids, Michigan 49507 

[Thanks, Bob, for passing along this information. If any 
NORTHERN BYTES readers have had any experience with this 
version of LS-DOS, I'm sure Bob would appreciate hearing from 
you!] 



Dear Jack! 

In Vol. 6, No, 1, B. Jim Smith requests help on understanding 
TRSDOS 6.XX commands like Set, Route, Filter and Link, You are 
not given to publishing book reviews but, perhaps, if I make it 
succinct, you'll make an exception. .. 

Book Review of "The Programmer's Guide to LDOS/TRSDOS \ 
Version 6" written by Roy Soltoff, published by MISOSYS, INC., I 
P.O. Box 239, Sterling, Virginia 22170-0239. (205 Pages). This is \ 
the BEST book I've ever seen on microcomputers. It is written in v^ 
(REAL, plain vanilla, easy to understand) English, it is full of / 
examples, it discusses EVERY aspect of the DOS and how to 
interface to it. It costs *14.95 plus *2 postage. If you want to do I 
ANY work with TRSDOS 6, you should BUY THIS BOOK. End of J 
Book Review. 

Sincerely, Nate Salsbury 
610 Madam Moore's Lane, New Bern, North Carolina 28560 

tThanks for the information, Nate. We DO occasionally publish 
book reviews, but I don't encourage them because they tend to take 
up space that could be filled by articles that would appeal to a 
larger percentage of our readers. Your review was just the right 
length!] 



Dear Jack, 

Funny people, you Americans. You drive on the wrong side of 
the road, you talk funny, you have Christmas in winter when it is 
summer, but worst of all, you write your dates backwards. This is 
confusing. 

We do it proper - DD/MM/YY. Mixing both is confusing, 
specially in the first twelve days of a month. There is no way to_ 
escape as we communicate outside of our computers. 

I spent quite some time making my NEWDOS/80 work in th. 
riviliied manner, no mean trick. Now SETDATE has put me back 
many years. Nothing needs to change in the programme but putting 
the date to memory, switching the MM and the DD, Not a machine 
language expert, I cannot find where it's at. If it is simple, could 

you give me a clue - or the answer? 

1 Clifford S. Richards 

3 Boroni* Road, Bellevue Hill, Sydney, N.S.W, 2023, Australia 

[Funny you should ask for such a thing, because on TAS Public 
Domain Library Disk #006 I put a modified version of SETDATE 
called DATESET, which displays the date as, for example, 30 
January 1985 instead of January 30, 1985, But it still uses the 
original order for month and day bytes in reserved RAM, You have 
apparently patched your copy of NEWDOS/80 to reverse the order of 
the bytes in which the month and day are stored. So, here are the 
changes to SETDATE/ ASM version 1.3 that should give you what you 
want. Please let me know how it works! 



{Day storage 
{faith storage 



{Month storage 
{Day storage 



{Point to day in ftetwry 
{Get day fron nenory 
{Adjust valid to - 30 
{Is day 1 - 31 in nenory^ 
{Co if invalid nonth 
{Point to wnth in M»wry 
{Get nontn fron Mwry 
{Adjust valid to - 11 
{Is wnth 1 - 12 in iwi? 



Old! 








6028 01 


00820 


DEFB 


ID 


602? OB 


00830 


DEFB 


11D 


New'. 








6028 OB 


00820 


DEFB 


UD 


6029 01 


00830 


DEFB 


ID 


Old! 








61E1 13 


01650 


DC 


DE 


61EZ1A 


01660 


LD 


A,(DE) 


61E3X 


01670 


DEC 


A 


61E4 FE1F 


01680 


CP 


31D 


61E6 3008 


01690 


JR 


NCUSEPGH 


61E8 13 


01700 


DC 


DE 


61E9 1A 


01710 


LD 


A,(DE) 


61EA3D 


01720 


DEC 


A 


61EB FEOC 


01730 


CP 


12D 



41E1 13 
41E2 1A 
41E3 3D 
&1E4 FEOC 
41E4 3(116 
41E8 13 

"~"TE9 ia 

iEA3D 
41EB FE1F 



Old! 
6ZDD OB 

6201 OA 
4202 C404 
4201 COF142 
6207 C01543 
620A OB 
420B0A 
620C4F 
620D 2600 
420FCS 
4210 CD07&3 
6213 CI 
6211 CO1063 



New! 
6200 
6201 
6202 
6203 
62DS 
6206 
620? 
620A 
620D 
620E 
620F 

^^ 6211 

'11 



OB 

OA 

6F 

2600 

C5 

030763 

CI 

C01543 

0B 

OA 

C404 

CDF142 

C01563 



Old! 

62A9 2B 

62AA7E 

62ABC02663 

62AE2B 

42AF7E 

62B0 B9 

62B1 31 

62B2D8 

62B3 3601 

62BS23 

42B6 7E 

42B7 FEOC 

62B9 31 

62BAD8 

62BB34D1 

62BD2B 

62BE2B 

New* 
62A9 2B 
62AA 2B 
62AB7E 
42ACCD2443 
62AF 23 
42B0 7E 
62B1 B9 
62B2 31 
62B3D8 
62B1 3601 
^>B4 2B 
>S7 7E 
42BBFE0C 
62BA34 
42BBD8 
62BC3A01 
62BE2B 



11450 
01640 
01470 
01480 
01490 
01700 
01710 
01720 
01730 



01810 
01820 
01830 
01810 
01850 
01B60 
01870 
01880 
01890 
01900 
01910 
01920 
01930 



01810 
01820 
01830 
01810 
01850 
01840 
01870 
01880 
01890 
01900 
01910 
01920 
01930 



02490 SETDAY 

02700 

02710 

02720 

02730 

02710 

02750 

02740 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02B1D 

02850 



DC 

LD 

DEC 

CP 

JR 

DC 

LD 

DEC 

CP 



DEC 

LD 

ADD 

CALL 

CALL 

DEC 

LD 

LD 

LD 

PUSH 

CALL 

POP 

CALL 



DEC 

LD 

LD 

LD 

PU9H 

CALL 

POP 

CALL 

DEC 

LD 

ADD 

CALL 

CALL 



DEC 

LD 

CALL 

DEC 

LD 

CP 

DC 

RET 

LD 

DC 

LD 

CP 

DC 

RET 

LD 

DEC 

DEC 



02490 SETDAY 

02700 

02710 

02720 

02730 

02710 

02750 

02740 

02770 

02780 
02790 
02800 
02810 
02820 
02830 
02810 
02850 



DEC 

DEC 

LD 

CALL 

DC 

LD 

CP 

DC 

RET 

LD 

DEC 

LD 

CP 

DC 

RET 

LD 

DEC 



DE 

A. (DEI 

A 

12D 

NCiUSEPGM 

DE 

A,(DE) 

A 

31D 



BC 

A.(BC) 

A,4 

PRTSTR 

PRTSPC 

BC 

A,(BC) 

L,A 

M 

BC 

PRTNUH 

BC 

PRTCOH 



BC 

A.(BC) 

L,A 

H,0 

BC 

PRTNUH 

BC 

PRTSPC 

BC 

A.(BC) 

A,4 

PRTSTR 

PRTSPC 



HL 

A,(HL) 

IttXDAY 

HL 

MH.) 

C 

(HL) 

C 

(HL),1 

HL 

A,(HL) 

12D 

(HL) 

C 

(HL),1 

HL 

HL 



HL 

HL 

A,(HL) 

IMXDAY 

HL 

A,(HL) 

C 

(HL) 

C 

(HL),1 

HL 

A,(HL) 

12D 

(HL) 

C 

(HL).l 

HL 





Old: 








{Point to ranth in nenory 


42D7 2B 


02990 SETDA2 


DEC 


HL 


{Get nonth fron nenory 


42D8 7E 


03000 


LD 


A,(HL) 


{Adjust valid to - 11 


AZD9 2B 


03010 


DEC 


HL 


{Is Mnth 1 - 12 in mm? 


62DA35 


03020 


DEC 


(HL) 


(Go if invalid mnth 


42D6C0 


03030 


RET 


NZ 


{Point to day in nenory 


42DC3D 


03010 


DEC 


A 


{Get day fron nenory 


42D0CD2443 


03050 


CALL 


HAXDAY 


{Adjust valid to - 30 


42E0 71 


03040 


LD 


(HU,C 


{Is day 1 - 31 in nenory? 


42E123 


03070 


DC 


HL 




42E2 35 


03080 


DEC 


(HL) 




42E3C0 


03090 


RET 


NZ 




42E1340C 


03100 


LD 


(HLM2D 


{Point to nonth byte 


42E4 2B 


03110 


DEC 


HL 


IGtt Month <1 - 12) 


42E7 2B 


03120 


DEC 


HL 


lOffttt for string tablt 










{Print Month string 


NN< 








{Print space character 


42D7 2B 


02990 SETDA2 


DEC 


HL 


{Point to day byte 


42D8 2B 


03000 


DEC 


HL 


{Get day (1 - 31) 


42D9 7E 


03010 


LD 


A,(HL) 


{Put day in L 


42DA23 


03020 


DC 


HL 


{HL'day 


42D6 35 


03030 


DEC 


(HL) 


{Save date storage pntr 


42DCC0 


03010 


RET 


NZ 


{Print day 


42DD30 


03050 


DEC 


A 


{Restore date storage ptr 


42DECD2463 


03040 


CALL 


MXDAY 


{Print coma and space 


42E1 71 


03070 


LD 


(HL),C 




42E2 2B 


03080 


DEC 


HL 




42E3 35 


03090 


DEC 


(HL) 


{Point to day byte 
{Get day (1 - 31) 

• D.A A^i in 1 


62E1C0 
42E5 340C 
42E7 2B 


03100 
03110 
03120 


RET 

LD 

DEC 


NZ 

(HL),12D 
HL 



jrui ooy in l 

|H = day 

{Save date storage pntr 

{Print day 

{Restore date storage ptr 

{Print space character 

{Point to Month byte 

{Get wnth (1 - 12) 

{Offset for string table 

{Print Month string 

{Print space character 



{Point to Month storage 
{Get Month 

{Get nunber days in Month 
{Point to day storage 
{Get current day 
{Conpare with Maxim* 
{Advance day of Month 
{Finished if valid day 
{Else first of new Month 
{Point to Month storage 
{Get current Month 
{See if it's Decenber 
{Advance Month count 
{Finished if valid Month 
{Else January of new year 
{Bump pointer back down 
{ to year storage 



{Bunp pointer down to 
{ Month storage 
{Get Month 

{Get nunber days in Month 
{Point to day storage 
{Get current day 
{Conpare with naxinun 
{Advance day of Month 
{Finished if valid day 
{Else first of new Month 
{Point to Month storage 
{Get current Month 
{See if it's Decenber 
{Advance Month count 
{Finished if valid Month 
{Else January of new year 
{Point to year storage 



{Point to nonth storage 
{Get Month 

{Point to day storage 
{Decrenent day of nonth 
{Finished if valid day 
{Else A=# of previous nth 
{Get * days previous with 
{Day=last day prev. nonth 
{Point to nonth storage 
{Decrenent nonth count 
{Finished if valid nonth 
{Else Decenber previ y°sr 
{Bunp pointer back down 
{ to year storage 



{Bunp pointer down to 
{ nonth storage 
{Get nonth 

{Point to day storage 
{Decrenent day of nonth 
{Finished if valid day 
{Else A=0 of previous nth 
{Get f days previous Mnth 
{Day=last day prev. nonth 
{Point to nonth storage 
{Decrenent nonth count 
{Finished if valid nonth 
{Else Decenber previ year 
{Point to year storage 



Those are the change* in the code, You can either change the source 
code or patch the /CMD file to achieve the desired result. I hope 
this it what you wanted!] 



PATCH FOR TMDD/CMD 
Patch supplied by Tony Domigan 

Some copies of TMDD (The Memory Disk Driver for the Model 
4/4Pi sold by TAS) have a minor bug in that when you display a 
directory of the MEMDISKt the disk name and disk date fields are 
reversed. This does not really affect operation of the MEMDISK, 
but if it bothers you, patch TMDD/CMD using SUPERZAP as follows! 
TMDD/CMD.02,65 Find! 216D52 Change to! 217552 



64K 



$59.95 ppd 

INSTALLED IN KEYBOARD 

TRS-80* Model l-UI 

Send us your Keyboard and we 
will convert it to full 64 K 
memory (48K RAM). Im- 
proved performance with or 
without Interface. 90 day 
warranty. Satisfaction guaran- 
teed. Quick return. Free return 
freight within U.S.A. 

ice mmmmmmmmmmmmm 

International Carbide & Engineering. Inc. 
100 Mill St.* P.O. Box 216 
Drakes Branch. VA 23937 

(804)568-3311 TWX: (910)997-8341 
•TM TANDY CORP. 



MODEL 4 ROM ft MODEL 4P ROM IMAGE CHARGES 
by Jack Decker 

This article is a not-too-well organized collection of data on 
the differences between the "old" and "new" versions of the Model 4 
ROM/4P ROM image (that is used when the computer is run in the 
"Model IH mode"). The "new" version was first introduced as the 
Model 4P ROM image (the "MODELA/HT file supplied with the 4P>, 
then copied back to the "un-portable" Model 4 at about the same 
time that Radio Shack relocated the arrow keys and started putting 
green CRT's in the 4 and 4P. The "new" Model 4 ROM and the "new" 
4P ROM image have a few minor differences, mostly due to 
hardware. 

The major changes are as follows! 

1) Revisions of the ROM in locations 0OOOH-2FFFH. Although 
Radio Shack has released several versions of the portion of ROM 
from 3000H-37FFH, this is the first revision of code in the portion 
of memory below 3000H since the very early days of the Model III. 

2) A revised printer driver with some added character 
translation capabilities, but this will cause no end of grief for 
unwary programmers, particularly those that have programs that 
output graphics characters to the printer. 

3) A completely new routine that allows a 4P to be booted off 
the RS-232 interface. 

I'll cover each section individually, but first the credits! 
Thanks to Nate Salsbury and especially to John Hallgren of 
Clearwater, Florida for providing the information below. Most of 
what you see here was extracted from John's handwritten nates on 
the new ROM, of which he very graciously sent me a copy. 
Additions, corrections, and clarifications to this article are most 
welcome. That said, we begin... 



A. ROM CHANGES AND ADDITIONS 

0001H-0004H Changed in the 4P ROM image only - not on the 
standard Model 4. Old! XOR A followed by JP 3015H (jump to 
reset/power-up routine). New! LD A,l followed by OUT (9CH),A (on 
the 4P port 9CH is the Boot ROM switch - this code disables 
RAM/enables ROM boot). 

0006H-0007H Changed in the 4P ROM image only - not on the 
standard Model 4. Old! Part of unused JP 40O0H instruction. New! 
Part of JP 3015H instruction (moved from 0002H, jumps to 
reset/power-up routine). 

0043H-0045H Old! Unused RET instruction followed by two zero 
bytes. New! JP 0434H instruction, accessed from JP NC instruction 
at 3790H (part of line printer driver - see commented disassembly). 

0063H-0065H Old! Leftover code from the Model I time delay 
routine (JR NZ.0060H followed by RET). New! JP 041FH instruction, 
accessed from JP C instruction at 3795H (part of line printer driver 
- see commented disassembly). 

006CH-0074H Old! LD DE.421DH followed by JR001BH (Start of 
I/O re-router routine which has been deleted in the Model 4) 
followed by NOP, and finally followed by an unused JP 06CCH 
instruction (left over from the Model I ROM code). New! RET 
instruction (disables I/O re-router) followed by LD BC1A18H and 
JP 19AEH instructions and two unused zero bytes. The 
LD BC.1A18H and JP 19AEH instructions comprise the old Model I 
"warm re-entry to BASIC" code that was originally found at 06CCH 
on the Model I, and was erroneously deleted from the Model III. It 
is used by the BASIC "SYSTEM" command when the BREAK key is 
depressed (accessed from 02C3H). 

00FFH-0101H Old! JP 37EBH (part of routine that prints "Radio 
Shack Model ni Basic" and copyright message. In the Model III, the 
first instruction at 37EBH was CALL 021BH). New! CALL 021 BH 
(done here instead of at 37EBH). 

0103H-0104H Old! Unused JP 1A19H Qeft over from the Model I). 
New! JP 01E6H (on the Model 4) or JP 01E7H (on the Model 4P) (jump 
to remainder of routine to print copyright message). 

01D9H-01F7H In the Model I, this block of memory contained the 
code to output one bit to the cassette. In the "old" ROM, this area 
contained the screen print routine (plus leftover garbage from the 
Mod I routine at 01F5H-01F7H). In the "new" ROM, this area 
contains a vector to the new screen print routine (a JP 3027H which 



in turn jumps to 37A3H), the printer status test that was formerly 
located at 0440H-044AH in the "old" ROM (now moved to 01DCH- 
01E6H in the "new" ROM), code to display the Tandy copyright 
message and put the BASIC T POBi v ector into plan at 4176H (this 
code was formerly located at 37EEH-37FCH and has been moved to 
01E7H-01F5H in the "new" ROM), and unused xero bytes at 01F6H- 
01F7H. Note that a POP AF instruction is found at 01E5H in th-? ^ 
ROM image, but this instruction is deleted in the "new" Mod 4 R 
and the instructions between there and 01E9H have been mnvtu 
forward one byte. 01E9H contains a zero byte in the "new" MoH«l 4 
ROM only. 

0210H-0211H Old) Leftover garbage from the Model I "turn off 
cassette" routine. New! Two unused zero bytes. 

0232H-0234H Old! Leftover garbage from the cassette "blink 
asterisk" routine. New! Unused zero bytes. 

02A8H-02A8H Old! Unused RET instruction. New! Unused zero 
byte. 

02B6H-02B6H Old! Part of LD SP,4288H instruction. New! Part of 
LD SP.42E8H instruction. This code is used by the BASIC "SYSTEM" 
command. 

02C4H-02C5H Old! Part of JPOACCH instruction. New! Part of 
JF006D instruction. This code is used by the BASIC "SYSTEM" 
command and fixes a bug. When the BREAK key was pressed in 
response to the "SYSTEM" command prompt, the "old" ROM would 
jump to 06CCH which was a "warm re-entry" to BASIC on the Model 
I, but is part of the LIST/LLIST code on the Model III ROM. The 
"new" ROM fixes this by jumping to the code that used to he found 
at 06CCH on the Model I, but is located at 006DH in the "new" ROM. 



03CAH-03CAH 

03CEH-03CEH 

03D7H-03D8H 

03E3H-03F9H 

03FBH-041EH 

0420H-0449H 



Part of printer driver 
Part of printer driver 
Part of printer driver 
Part of printer driver 
Part of printer driver 
Part of printer driver 



' see detailed disassembly. 
' see detailed disassembly. 
' see detailed disassembly. 
- see detailed disassembly. 
' tee detailed disassembly. 
' see detailed dicasscmblv- 



0469H-046AH Old! Leftover garbage from the Model I video driv^. 
routine. New! Two unused zero bytes. 

05D1H-05D8H This was a "printer ready" test in the Model I, which 
was destroyed (for no apparent reason) in the "old" Model III ROM 
by changing the first three bytes to the characters "RON". In the 
"new" Model in ROM, the "Cass ?" string literal that was formerly 
at 37F6H-37FDH has been moved here. 

1BC2H-1BC2H In the Model I and in the Models III ft 4 using the 
"old" ROM, memory location 40B0H was used to flag DATA 
statements while encoding BASIC lines. In the "new" ROM machines 
memory location 409FH (a previously unused location) is used for 
this purpose. Thus, this byte is part of a reference to location 
40B0H that has been changed to 409FH. 

1BDDH-1BDDH Same as above (1BC2H). 
1C68H-1C68H Same as above (1BC2H). 

2409H-2409H Same as above (1BC2H) ON THE MODEL 4P ONLY. In 
the "new" Model 4 ROM, this change and the next (2452H) were 
restored to the previous value of BOH. Why? Only Tandy knows! 
John Hallgren speculates that the reason may have something to do 
with the fact that these two are part of arithmetic routines, and the 
40B0H location is used to store tokens (IJG's Microsoft BASIC 
Decoded & Other Mysteries says that the "arith token of last 
operand (the one to be performed)" is stored here). 

2452H-2452H Same as above (2409H). 

2FFBH-2FFFH Old! Unused garbage. New! Unused zero bytes. 



NEW AND MODIFIED JUMP VECTORS! 

3012H Modified vector to disk bootstrap routine (Old! JP 3461H! 
New! JP 3486H). 

3015H Modified vector to reset/power-up routine (Old! JP 3401H! 
New! JP 3426H). 



3024H Modified vector to the keyboard driver routine (Old! 
JP 338EHJ New: JP 3106H) 

3027H Modified vector - in the original Model III ROM, this was a 
jump to the I/O re-router routine at 3739H, in the original Model 4 
ROM it contained a RET instruction followed by two NOPs, and in 
_ the "new" ROM it contains a jump to the screen print routine at 
VA5H. 

302DH Modified vector to part of the LIST command (Old' 
JP 37A4H! Newt JP 375CH). 

3030H Modified vector to the BASIC TIME* function routine <01d! 
JP 37C2H! New! JP 37EAH). 

303DH Modified vector to the Non-Maskable Interrupt handler 
routine (Old! JP 34CEHJ New! JP 350BH). 

3042H Modified vector to the *5£TCAS routine that prompts the 
user to set the cassette baud rate (Old! JP 310BHJ New! JP 33FFH). 

3045H NEW vector (JP 378DH) used by line printer driver to 
translate a character in the range COH-DFH using the table painted 
to by an address stored at 4220H-4221H, This vector is referenced 
by a CALL at 03F1H if the byte stored at 41FBH = 1. 

3048H NEW vector (JP 377 AH) used by line printer driver to adjust 
counters at the start of each new line. 

304BH NEW vector (JP 3179H) used to "boot" the computer from the 
RS-232! There are no references to 304BH in the ROM, however, 
another reference to 3179H is found at 3518H. 



OTHER CODE CHANGES IN THE ROM ABOVE 3000H! 

304EH-3085H Keyboard lookup table that formerly started at 
3045H has been moved forward nine bytes in the new ROM (locations 
3069H through 306DH contain unused zero bytes). 

~^086H-308DH Part of RS-232 boot routine - see detailed 

isassembly. 

308EH-30C5H Keyboard lookup table that formerly started at 
3085H has been moved forward nine bytes in the new ROM (locations 
30A9H through 30AEH contain unused zero bytes), 

30C6H-30C8H Part of RS-232 boot routine - see detailed 

disassembly. 

30C9H-30CDH A NOP instruction followed by the Floppy Disk 
Controller time delay routine formerly found at 3S18H (in the Model 
III) or 37E1H (in the "old" Model 4 ROM). 

30CEH-3105H Keyboard lookup table that formerly started at 
30C5H has been moved forward nine bytes in the new ROM 
(locations 30E9H through 30EDH contain unused zero bytes). 

310&H-3178H Part of keyboard driver routine equivalent to code 
found at 338EH-3400H in the "old" Model 4 ROM. 

3179H-31A4H Part of RS-232 boot routine - see detailed 

disassembly. 

338EH-33F8H Part of keyboard driver routine equivalent to code 
found at 3739H-37A3H in the "old" Model 4 ROM. 

33F9H-3425H Code moved from 3105H-3131H in the "old" Model 4 

ROM, includes the *SETCAS routine, 

3426H-3516H Equivalent of code found at 3401H-34D9H in the "old" 
Model 4 ROM (bootstrap routine), Note that the number of retries 
_for a diskette (value at 3487H in the "new" ROM) has been doubled 
rom five to ten). 

3517H-3527H Part of RS-232 boot routine - see detailed 

disassembly. 

3739H-375BH Part of keyboard driver routine equivalent to code 
found at 34DAH-34FCH in the "old" Model 4 ROM. 



375CH-3779H Part of BASIC "LIST" command routine moved from 
37A4H-37C1H in the "old" ROM. 

377AH-37A4H Part of printer driver - see detailed disassembly. 

37A5H-37C6H Screen print routine moved from 34FDH-351EH in 
"old" ROM, 

37C7H-37CBH Part of keyboard driver routine equivalent to code 
found at 313BH-313FH in the "old" Model 4 ROM. 

37CCH-37D4H Part of keyboard driver routine equivalent to code 
found at 37D8H-37E0H in the "old" Model 4 ROM. 

37D5H-37E4H Part of RS-232 boot routine - see detailed 
disassembly. 

37EAH-37FCH BASIC TIME* routine moved from 37C2H-37D7H in 
"old" ROM, 



B. THE NEW PRINTER DRIVER CODE: 



0043 


00100 


ORG 


0013H 






00110 {am 


CHARACTER >=0E0H ( FLAG 9 (11FBH)=1 am 


DM3 C33101 


00120 Q0M3H 
00130 


JP 


Q043W 




0063 


00110 


ORG 


0063H 






(0150 [mo 


VECTOR TO "N0RNAL" CHARACTER PRDIT ROUTINE an 


1043 C31FM 


00160 Q0043H 
00170 


JP 


QM1FH 




11DC 


00180 


ORG 


(1DCH 




UK CD1B01 


(0190 Q01DCH 


cm 


OOHBH 


[CHECK PRINTER 


(1DFC9 


00200 


RET 


/'' 


{RETURN IF READTZ 


tlEI CD8D02 


00210 


CAtl 


M280H 


(CHECK <BREAK> 


01E3 28F7 


00220 


JR 


Z.Q01DCH 


[LOOP IF NOT PRESSED 


I1E5F1 


00230 


POP 


AF 


[EXIT CALLING SUBROUTINE 


01E6C9 


00210 
00250 


RET 




[RETURN 


(280 


09240 


ORG 


(28DH 




O28D3A1038 


00270 Q028OH 


LD 


A,(3840H) 


[GET <BREAK> KEY ROM 


0270 E401 


00280 


MO 


0* 


(MASK OUT OTHER KEYS 


0292 C9 


00290 
00300 


RET 




!(A=1 IF <BREAK> PRESSED) 




(0310 [ran 


ACTUALS! nam 


03C2 


(0320 


ORG 


(3C2H 




03C2 79 


(0330 


LD 


A,C 


[PUT CHARACTER W A 


03C3FE20 


00310 


CP 


20H 


[CONTROL CHARACTER? 


0X5 3022 


00350 


JR 


NCO03E9H 


WW* IF NOT CONTROL 




00340 [ran 


CHARACTER IS CONTROL «20H) ran 


03C7FE0D 


00370 


CP 


(OH 


[CARRIAGE RETURN? 


03C9 2819 


(0380 


JR 


Z.OOWH 


[JUMP IF SO 


03C8FE0C 


(0390 


CP 


(CH 


[FORK FEED? 


033)20* 


((1(0 


JR 


NZ,0M1DH 


[JUMP IF NOT 




001K [ran 


CHARACTER IS FORK FEED 


i mn 


03CFDD7EO3 


(M2( 


LD 


A,(K+03H) 


[GET • LINES ON PAGE 


03D2DD9401 


(0130 


SUB 


(DM*) 


[SUBTRACT CURRENT LINE t 


0305 17 


(0H0 


LD 


M 


[B=UNES LEFT ON PAGE 


03D6CDDC01 


00450 Q03D4H 


CALL 


001DCH 


[MAIT FOR PRINTER READY 


03W 3E0A 


((440 


LD 


A,0AH 


[LINEFEED CHARACTER IN A 


03DBD3F8 


(0171 


OUT 


(0F8HM 


[OUTPUT IT 


(2DD10F7 


(0180 


DJNZ 


B03D6H 


[LOOP UNTIL PAGE FEED 


03DF DD360500 00190 


LD 


(«+05H),((H 


[* CHARACTERS PRINTED « 


133 00340401 00500 


LD 


(DM4H),(1H 


[RESET CURRENT LINE COUNT 


03E7 185F 


(0510 


JR 


Q0U3H 


[GO TO EOT ROUTINE 




00520 [ran 


CHARACTER IS NOT CONTROL «2CH) ran 


03E9 3AFM1 


(0530 Q03E9H 


LD 


A,(41FBH) 


[GET FLAG 


03ECB7 


(351( 


OR 


A 


[IS IT ZERO? 


I3ED2M7 


10550 


JR 


Z.Q03F4H 


[CO IF SO 


03EFFE01 


10340 


CP 


I1H 


[FLAC-1? 


03F1 CM530 


00570 


JP 


Z.B3M5H 


[GO IF SO 


(3F1 1829 


(058( 


JR 


0M1FH 


[CO ff FLAG NOT ( OR 1 




10591 ;imx 


CHARACTER NOT CONTROL I FLAG 9 (41FBH>-0 ran 


03F6 3AFC11 


(0600 B03F6H 


LD 


A,(11FCH) 


[GET FLAG 


03F9B7 


(06K 


OR 


A 


[IS IT ZERO? 


(3FA 200E 


(0*20 


JR 


NZ,M40AH 


[GO IF NOT 




(0430 [ran 


CHAR NOT CTRL t FLAGS K41FBH) ( (41FCH>»0 ran 


I3FC79 


00410 


LO 


A,C 


[GET CHARACTER 


(3FDFEA0 


10450 


CP 


MM 


[IS CHARACTER <M0H? 


03FF 381E 


(0440 


JR 


CO011FH 


[CO IF BO 


H01 FECO 


00470 


CP 


K(H 


[IS CHARACTER <KW? 



MI3 3IM 

M05 an 

0407 4F 

0408 1815 

040A79 
MOB TOO 
040D 3810 

D40F D620 

0411 * 

0412 180B 

0111 DD7E0S 
0417 B7 
0118 Z01A 
011A 3E0A i 
MIC IF 

0110 1815 

011F DO7E06 

0122 X 

0123 280F 
0125 DDBE05 
0128 300A 
012A CDOC01 
0120 3E0D 
012FD3F8 
H31CM830 
0131 CDOCOl 

0137 79 

0138 D3F8 
M3ADD3105 
013DFE0D 
043F2804 
Mil FE0A 
0113 2003 
0115 CD4830 

0118 AF 

0119 79 
0HAC9 
OUB DBFS 
0HDE6F1 
0HFFE30 
0151 C9 

3045 

3015 C38D37 

304BC37A37 

377A 



00481 

00690 
00700 
00710 
00720 
10731 jmn 
00741 QO40AH 
00750 
00760 



JR NC,M40FH 
{CHARACTER JN RANGE AOH - BFH 
ADD A.40H 
LD C,A 
JR O041FH 



•gofnot 

{HAKE CHARACTER EOH-FFH 
(SAVE IT 
(GO OUTPUT n 



CHAR MOT CTRL) FLAG B(4lFBH)=8,e(1lFCH>O0 



LD A,C 

CP OCOH 

JR COM1FH 

00770 (CHARACTER IN RANGE COH - FFH 

00781 OMOFH SUB 20H 

LD C,A 

JR Q041FH 



00790 

00800 

00810 

00820 O0414H 

00830 

00840 

00851 

00860 

00870 ;nm 

00880 OM1DH 

00890 }nm 

00900 QM1FH 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 00434H 

01000 

01010 

01020 

01030 

01010 

01050 

01060 

01070 00445H 

01080 Q044BH 

01090 

01100 

OHIO O041BH 

01120 

01130 

01140 

01150 

01160 

01170 Q3045H 

01180 Q3048H 

01190 

01200 



(GET CHARACTER 

(IS CHARACTER <0C0H? 

(GO IF 80 

(HAKE CHARACTER AOH-DFH 
(SAVE IT 
ICO OUTPUT IT 



CHARACTER IS CARRIAGE RETURN mn 

LD A,(IX+05H> (GET * CHRS PRINTED ON LN 

OR A (ANY CHARS ON THIS LINE? 

JR NZ,0M34H (GO IF, SO 

LD A,0AH (CONVERT <0t> TO <LF> 

LD C,A (STORE UMEFEED CHARACTER 

JUNPHEREIFCHARCTRLBUTIOT<CR>OR<LF> 

JR O0434H 

THIS ROUTINE PRINTS "NORMAL" CHARACTERS 



377A DD360500 01210 0377AH 
377E DD3404 01220 
3781 DD7E04 01230 
3784 DDBE03 01240 

3787 CO 01250 

3788 CO360401 01260 



378CC9 

3780 79 
37SEFEE0 
3790 D24300 
3793 FECO 
3795DA63D0 

3798 D6C0 
379A 0600 
379C4F 
3790 2A2042 
37A0 09 
37A1 4E 
37A2C36300 

0000 



LD 

INC 

JR 

CP 

JR 

CALL 

LD 

OUT 

CALL 

CALL 

LD 

OUT 

INC 

CP 

JR 

CP 

JR 

CALL 

XOR 

LD 

RET 

IN 

AND 

CP 

RET 

ORG 

JP 

JP 

ORG 

LD 

DC 

LD 

CP 

RET 

LD 

RET 



A,(IX+86H> 

A 

Z,QM34H 

(DM5H) 

NC00134H 

OOIDCH 

A,0OH 

(0F8H),A 

03049H 

OOIDCH 

A,C 

(0PBH),A 

(IX+tSH) 

OOH 

Z.0044W 

MH 

NZ,Q0449H 

03048H 

A 

A,C 

A.(OFBH) 

OFOH 

SON 



I3M5H 
D378DH 
0377AH 

0377AX 

(H+8W),80H 

(H+04H) 

A,(»+04H> 

(IX+03H) 

NZ 

(IX+04H),MH 



(GET NAXDUH LDE LENGTH 
(IF ND MAXIMUM, NOW A*0 
(GO IF NO MAXIMUM LENGTH 
(NAXSUt LENGTH REACHED? 
(COIF NOT 

(HAn FOR PRINTER READY 
(CARRIAGE RETURN IN A 
(OUTPUT IT 
(ADJUST COUNTERS 
(HAn FOR PRINTER READY 
(GET CHARACTER TO PRINT 
(OUTPUT IT TO PRINTER 
(INCREMENT * CHRS PRINTED 
(CARRIAGE RETURN? 
(FIX COUNTERS IF 80 
(LINEFEED? 
(SKIP IF NOT 
(ADJUST COUNTERS 
(CLEAR STATUS 
(RESTORE CHARACTER 
(DONE 

(GET PRINTER STATUS 
(MASK OFF DWELEIENT BITS 
(READY? 



(CHR NOT CTL, (11FBH>-1 
(ADJUST COUNTERS 



(RESET * CHRS PRNTD ON LN 
(INCREMENT * LINES PRNTED 
(GET NEH LINE COUNT 
(ON NEXT PAGE? 
(RETURN IF NOT 
(RESET LDE COUNT TO TOP 
( OFPAGEtRETUW 



01270 

01280 (ran CHARACTER NOT CONTROL I FLAG « <41FBH>*1 

01290 0378DH 

01300 

01310 

01320 

01330 



LD 
CP 
JP 

CP 
JP 



A,C 

0E8H 

NCO0M3H 

OCOH 

CQ0063H 



(GET CHARACTER 
(CHARACTER <0E0H? 
(GO IF NOT (TO M34H) 
(CHARACTER <0C0H? 
(GO IF SO (TO 041FH) 



01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 



(CHARACTER IN RANGE 0C0H-BOFH 



SUB 

LD 

LD 

LD 

ADD 

LD 

JP 

END 



OCOH 

B.OOH 

C,A 

HUI4220H) 

HL.BC 

C,(HL) 

Q0063H 



(HAKE CHARACTER 0OH-1FH 
(BOADJUSTED CHARACTER 
( (IN RANGE O00OH-IO1FH) 
(GET ADDR OF LOOKUP TABLE 
(ADO OFFSET 

(GET CHAR FROM LOOKUP TBL 
(GO TO \ECTOR TO M1FH 



00000 TOTAL ERRORS 



Memory locations 41FBH, 41FCH, and 4220H-4221H are used 
for the first time (by the printer driver) in the above code. I don't 
know why the changes were made, but the net effect is as follows* 



1) If memory location 41FBH contains any value other than 
or 1, all characters are handled normally. Unfortunately) this 
location it initialized with a value of zero* So if your graphics 
printer starts doing funny things when connected to a TRS-60 Model 
4 or 4P with the new ROM (or ROM image), simply try POKEing 
memory location 41FBB with any number between 2 and 255. 

2) If memory location 41FBH contains a value of 1, then 
characters in the range COH through DFH will be convert 
according to the contents of a 20H byte long table beginning at an 
address stored at 4220R-4221H (these locations contain an address 
of OOOOH at initialization, which obviously is not pointing at a 
lookup table!). If you want to use this feature from BASIC, you 
could create a 32 (decimal) byte string literal (for example, 
▲»-"... (32 bytes) ..." ), then use the VARPTR function to find the 
start of the string in memory and POKE that into locations 4220H- 
4221H. Don't forget to poke a value of 1 into 41FBH. After that, 
any byte you send to the printer from COH through DFH should be 
converted according to the characters in your string literal (COH 
would be converted to the first character, C1H to the second, and so 
on«..)» * 

3) If memory location 41FBH contains a value of O (as it does 
at initialization), then characters in the range COH through FFH will 
have 20H subtracted frqm their value (they will be converted to 
characters in the range AOH through DFH). IN ADDITION, if (and 
only if) memory location 41FCH contains a value of O (as it does at 
initialization), then characters in the range AOH through BFH will 
have 40H ADDED to their valu e (th ey will be converted to 
characters in the range EOH through FFH). 

The following chart may illustrate this a bit better: 

Vilut in Valus in Original character valut (offtrt fhovn btlau) 
(11FBH) (41FCH) A0H-BFH C0H-DFH EOH-fFH 



8 



2-255 
1 





1048 

3040 C37931 



3086 

3086 DBEA 
3088 B7 

J089F28630 
308C 1838 

30C6 
30C6D8E1 

30C8C9 



317? 
317? AF 
317A D3E8 
317C 3EEE 
317E DJE9 
3180 3E6D 
3182 03EA 
3184 DBE8 
3186 CB77 
3188 2BFA 
318A 3E6C 
318C D3EA 
JIBE IBE8 
3190 CB77 
3192 20FA 
3194 3E0F 
3196 CDD537 
3199 C0B630 
319C CDB430 
J19F CDD537 
3IA2 C31735 

3517 

3517 B7 

3518 C27931 



don't cart no changt no chmw no charm 

don't cirt no changt tablt lookup no change 

1-255 nochmgt 2DH subtracted 20H subtracted 

40Haddtd Z0H subtracted 20H subtracted 



C. THE NEW RS-232 BOOT R OUTINE CODE! 



00100 

00110 B304BH 

00120 

00130 | m« 

00140 

00150 B30B6H 

00160 

00170 

00180 

00190 

00200 

00210 B30C6H 

00220 

00230 

00240 | IIIU 

00250 

00260 B3179H 

00270 

00280 

00290 

00300 

00310 

00320 B3184H 

00330 

OO340 

00350 

00360 

00370 Q3IBEH 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 S3517H 

00490 



ORB 
JP 



304BH 
B3179K 



I VECTOR TO RS-232 BOOT 



6ET CHARACTER FR0H RS-232 

We 3086H 

III A, I0EAH) 

OR A 

JP P.B30B6H 

JR B30C6H 



I BET UMT STATUS 
lOATA RECEIVED IN UART? 
I IF DDT, TRY AGAIN 
iaSE GET CHAR FROM UART 



ORE 

IN 

RET 

ACTUAL 

ORG 

KQR 

OUT 

LI 

OUT 

LD 

OUT 

IN 

BIT 

JR 

LD 

OUT 

IN 

BIT 

JR 

LD 

CALL 

CALL 

CALL 

CALL 

JP 

0R6 

OR 
JP 



30C6H 
A, I0EBH) 



START OF RS 
3179H 
A 

(OEBH),A 
A.OEEH 
(OE9HI.A 
A,6DH 
(OEAHI.A 
A. (OE8H) 
6, A 

Z.031B4H 
A,6CH 
(OEAHI.A 
A, (OEBN) 
6,A 

NZ.B318EH 
A.OFH 
BS7D5H 
B30B6H 
B3086H 
B37D5H 
Q3517H 

3S17H 

A 

N2.Q3179H 



(GET CHAR FROM UART 
I I RETURN 

-232 BOOT ROUTINE Mitt 

|A>0 

(RASTER RESET OF UART 

(SELECT 9600 BAUD FOR 

! INPUT/OUTPUT 

(HIT UART ODD.BBIT.ISTQP 

I NO PRTY;RTS,BRi:,DTR OFF 

(GET MODEM STATUS REGISTR 

j'DSR" ON? 

(IF NOT, KEEP BAITING 

(INITIALIZE UART AGAIN 

; KITH DTR ON 

(GET MODEM STATUS REGISTR 

("DSR" ON? 

(IF SO, BAIT FOR OFF 

(CHAR TO TRANSMIT • <SI> 

(OUTPUT CHAR TO RS-232 

(GET A CHARACTER 

(GET ANOTHER CHARACTER I 

( OUTPUT IT TO RS-232 

(CONTINUE IN ROUTINE 



|NAS 2ND CHARACTER A 0? 
(IF NOT, ABORT t RETRY 



35is 2iooia 


USUI 


LO 


HL,1300H 


mmmm. soot buffer 


331ECO6630 


(0511 0351EH 


CALL 


03K6H 


JGET ft CHARACTER 


352177 


BDSZQ 


LD 


<HL),A 


(SAVE IT TO BUFFER 


3522 2C 


0(531 


DC 


L 


{INCREMENT BUFFER POWER 


3523 Z0F9 


00510 


JR 


NZ.U351EH 


[BACK TO 1300? NO,DO HOT 


3525 C3EI37 


10550 
0056G 


JP 


B37E0H 


?GO TO DOT ROUTINE 


TS 


00570 


ORG 


37DSH 




/D5F3 


BCS80 Q37D5H 


PUSH 


AF 


JSAvI CHARACTER I STATUS 


37D6DBEA 


00570 037D6H 


IN 


A,(0EAH! 


[GET UART STATUS 


37DBC877 


00600 


en 


6,A 


W CHARACTER (KITING? 


37DAZ8FA 


00610 


jt 


Z,Q37D6H 


;f *rr t try again 


37DCF1 


(0621 


POP 


AF 


[RELOAD CHARACTER 


37DD D3EB 


00630 


GUT 


<IEBH),A 


(CM TO RS-232 


37DFC9 


09610 


ret 




( t RETURN 


37E0 3E60 


00650 837E0H 


LD 


A,6DH 


JSET "DTR" BACK ON 


37E2 D3EA 


00660 


OUT 


(OEAHl.A 


! AGAIN 


37E1 E9 


00670 
00680 


JP 


(HL) 


JJUH> TO 1300H 


3?« 


00690 


END 


Q301BH 




09000 TOTAL ERRORS 









Quite frankly, I'm not absolutely certain of the purpose of the 
above code, but I believe it was designed to allow the 4P to be 
booted off the RS-232 interface in a "networking" type situation. 
As most 4P owners know, holding down certain keys while booting 
up the 4P will select different modes of operation (see "MODEL 4P 
BOOT MODE KEY SELECTION" in NORTHERN BYTES Volume 5, 
Number 4, page 15). One of the "undocumented" combinations is to 
hold down the SHIFT and BREAK keys while booting up, which 
supposedly will boot from the RS-232. This is most likely the code 
that handles that. 

D. CONCLUSION 
If my mail is any indication, the most significant change in the 
"new" ROM (the one that seems to be giving folks the most fits) is 
the revised printer driver. So remember, if you have a program that 
prints properly when using a Model TJI (or an early Model 4), but 
doesn't work correctly when using a "new" ROM Model 4 or 4P, go to 
J3ASIC and type! 

lis should, restore normaloperation. Since this memory location 
(41FBH) is unused under the "old" ROM, you may wish to add this 
instruction near the beginning of your Model III/4 BASIC programs 
that send graphics characters to the printer. 

Once again, I wish to give special thanks to John R&Ugren 
(1939 Atlantis Drive, Clearwater, Florida 33575) for providing the 
bulk of the above information, and for proofreading and debugging a 
first draft of this article. John has also tent me a hardcopy listing 
of a fairly well-commented disassembly of the Model 4P boot ROM. 
Due to the length of this disassembly (this is 4K of cede we're 
talking about!) and the fact that the routines in the boot ROM 
cannot normally be accessed from within a running program anyway 
(well, they CAN, but most folks would have no reason to), I don't 
think I will print it in Northern Bytes (if I 'get a flood of mail 
protesting this decision, I may change my mind). I only mention this 
to let you know that someone HAS disassembled ths 4F boot ROM. 



with a DATA ADDRESS MARK (DAM), which is one of the bytes FS, 
F9, FA, or FE. Tlic: vector data record must also be immediately 
followed by the byte F7. 

The NODAM protection scheme is bated on constructing a 
formatting data record with a tingle tector identification record, 
and following it with a filler block that is ir> fact the protected 
information. In other words, there will be NO Data Address Mark. 
As such, copying programs that are based on copying sectors are 
defeated. 

To defeat the NODAM protection scheme, it is wuffifient to 
read the entire track using the read track command while 
synchronizing on the lone ID ADDRESS MARK, locating the sector 
identification record which is signified by the byte FE, replacing 
the two-byte CRC with the byte F7, and writing this formatting 
data record to the destination diskette. Unfortunately, there is a 
problem which prevents the complete automation of this procedure. 
Simply stated, on a track read it is possible that many incorrect FE 
bytes will be produced. And because the sector identification 
record may conatin false CRC values, there is no algorithmic way tn 
determine the start of the filler block that is tha protected 
information. 

On the other hand, the same problem is faced by the loader of 
the protected information. The simplest solution is to start the 
filler block with a code sequence. Although it is possible to make 
an educated guess at the code sequence by examining a few such 
protected tracks, the certain way it through boot tracking. This is 
why the breaking of NODAM protected diskettes has remained in 
the domain of a select few, 

The earliest NODAM protection scheme (known to me) is the 
wonderful work of Yves Lempereur of FUNSOFT games. Ke also 
introduced the reverse nibble encryption scheme (e.g., CD is encoded 
At OD OC) which it used by COPYCAT 3, 

Below is a summary guide for backing up COPYCAT 3 (a Model 
3 must be used). The full guide and complete instructions on 
converting it to a /CMD file appear elsewhere in the book. 

(All numbers are in hexadecimal. SU+ is Kim Watt's Super 
Utility Plus. And, don't forget to write protect your COPYCAT 3.) 

5tep_l - Use the special backup function cf SU+ to backup 
COPYCAT 3. Essentially all that is needed is to copy tracks and 
13 of COPYCAT 3 which are unprotected. 

On track 0, there are 4 sectors with the following sector 
identification records! 



Track #! 00 
Track #! 69 
Track #! 40 
Track #! 30 



Side #J 00 
Side #: 00 
Side #: 00 
Side #! 00 



Sector *: 01 
Sector #: 69 
Sector #: 40 
Sector •! 30 



Length Code! 01 
Length Code! 03 
Length Code! 03 
Length Code! 00 



On track 13, there are 2 sectors with the fallowing sector 
identification records! 



Track #! 30 
Track #! 40 



Side #! 00 
Side *! 00 



Sector #: 30 
Sector *: 40 



Length Code! 03 
Length Code! 03 



Repeat step 2 for each protected track of COPYCAT 3, They 
are tracks 2 through 8, each with the following sector identification 
record! 



Track #! 31 



Side m 16 



Sector #J 31 Length Code! 00 



THE PROTECTION SCHEME OF COPYCAT 3 
by Mohammad Dadashiadeh, Ph.D. 

[This article is a condensed excerpt from my forthcoming book 
- COPY PROTECTION SCHEMES ON THE TRS-60. The book is 
subtitled, how to copy that protected disk? *s well ss how to 
convert that protected tape (disk) into a /CMD file.. 1 

The protection scheme of COPYCAT 3 fells under the class 

which I have named NODAM. Recall that diskettes are formatted by 

constructing a formatting data record in memory and then issuing a 

write track command. The formatting data record includes not only 

the initial data for the sectors define;! for that track but also 

sector identification records as *ell as inter-sector filler blocks. 

,-A sector identification record consists of four bytes! track number. 

'e cumber, sector number, and length code. It must be preceded 

z an ID ADDRESS MARK, i.e., the byta FE, and immediately 

followed by the byte F7 which instructs the Floppy disk controller 

(FDC) to write the two-byte Cyclic Redundancy Checksum associated 

with the previous record. For synchro™ nation purposes, & filler 

block must be used to separate th*> sector identification record from 

the sector data record the start of which is signified to the FDC 



S tep 2 - Use the track to memory function of SU+ to read the 
protected track ef COPYCAT 3. Once the protected track is in 
memory, locate the code sequence used by COPYCAT 3. That is, 
look for 4C 4E (L N in ASCII, which are, by the way, the initials of 
the author of COPYCAT 3). You can actually escect to see the 
sequence! FE 31 16 31 00 44 26 4C 4E. Modify the bytes before 4C 
4E so that they read! F6 F6 F6 FC 4E 4E 4E 4E 4E 4E 00 00 00 00 00 
00 00 00 00 00 F3 F5 PJ FE 31 J6 31 00 F7 4C 4E. You may «!so wish 
to replace the bytes preceding the First F6 with 4E, Next, use the 
memory to track function of 5U+ to writs this formatting data 
record to the destination diskette.. 



HELP WANTED - CAN YOU HELP? 

A gentleman here in Sault Ste. Marie is ttiU using Radii: Shack's 
MICROFILES program. Unfortunately, his young awjghter took a 
black magic marker to many of the pages, and ... you can £|u#*fc the 
rest, If you have a MICROFILES manual you're not using any mora. 
we can give it a good heme: 



FKEY/CMD 

A public domain program from the 

Christian Computer Users Association TRS-80 Library 

Provided by Bob Grommes 

1733 Eastern S.E., Grand Rapids, Michigan 49507 

This machine-language utility runs under Model 4 TRSDOS 
Version b and allows you to change the code values generated by the 
three function keys. It will redefine any or all of the function keys, 
both shifted and unshifted, and/or display the current settings of 
the keys. This has many practical uses in any program that uses the 
standard keyboard device («KI) to scan the keyboard) for example, 
when writing EASIC programs, if you make much use of the carat 
symbol (used for exponentiation), you will find it easier to define a 
function key to that particular symbol rather than to constantly 
press <CLEAR> and <!> at the same time. Commonly used Disk 
Scripsit control keys such as <CLEAR> <S> could be generated by a 
single function key, often saving one or two keystrokes, as well as 
being less awkward besides. 

The command syntax for FKEY is as follows! 

FKEY 

. , . without any parameters will simply display the current settings 
of the unshifted function keys. 

FKEY(Fl="r,F2="r,F3=" A \Sl""<",S2=">",S3=T> 
FKEY(F1=?1,F2=93,F3=?4,S1=123,S2=125,S3=124) 
FKEY(F1=X'5B',F2=X'5D',F3=X'5E',S1=X'7B',S2=X'7D',S3=X'7C) 

, , , the above three commands produce identical results. The Fl, F2 
and F3 parameters define the unshifted function keys! the SI, S2 
and S3 parameters define the shifted function keys (that is, 
<SHIFT> <F1>, <SHIFT> <F2>, etc.). Each parameter can be defined 
as a quoted string, a decimal value or a hex value in X'nn' format. 
You can mix any combination of string, decimal or hex values on a 
command line, and the order of the parameters isn't important. Of 
course, you don't have to use all of the parameters either, only 
those you want to, 

FKEY (DEFAULT) 

This command will reset the function keys to their default values. 

Since FKEY executes entirely within the library overlay 
memory region, it is callable from any program that allows you to 
invoke TRSDOS library commands. Often, you will have to do this 
by using the TRSDOS command RUN. For example, you can run FKEY 
from BASIC with the following command! 

SYSTEM "RUM FKEY (parameters)" 

Please note that you cannot use FKEY to allow a function key 
to emulate the SHIFT - @ function of PAUSE. Since TRSDOS 
specifically scans SHIFT and Q to detect the PAUSE condition, even 
though a function key may generate the code value of X'60', it will 
NOT be detected as PAUSE. 

[The following additional comments on FKEY/ASM were 
provided by Bob Grommes. 3 

Just a few technical notes on FKEY and TRSDOS 6 assembly 
language coding in general! 

The whole subject of Supervisor Calls (SVC's) used in TRSDOS 
6 and other Model 4 DOS's may be a little unfamiliar to those of us 
accustomed to Model I/III assembly language practices. FKEY, like 
almost all machine code for the native Model 4 mode, makes 
extensive use of SVC's. Fortunately they are quite simple to 
understand and have some real advantages to the programmer. 
Consider the following code! 



Model III! 






GET 


EQU 


013H 




LD 
CALL 


DE.FCB 
GET 


Model 4! 






QGET 


EQU 


3 




LD 
LD 
RST 


A,@GET 
DE.FCB 
40 



Both of these routines input a single byte from a device or 
file pointed to by DE. Both take up 6 bytes of memory, and both 
take 8 machine cycles to execute. Why use a SVC then? Well, it 
allows routines within the operating system to "have legs", and 
move around freely during different releases of the DOS, without us 
programmers having to chase them around. The bad news is that all 
user SVC's in TRSDOS 6 use the RST 40 (or RST 28H) instruction. 
This means there is not a lean, mean subroutine sitting right at - 
28H. It means there's a jump vector to a routine that looks at th 
accumulator, sees what SVC you want, accesses another table of 
vectors and THEN jumps to the appropriate subroutine. This means 
more overhead than some CALLs. On the other hand, many routines 
in the familiar Model III ROM were accessed via vectors and used 
various pointers to pointers to pointers also. Some also needed 
fairly involved stack setup to properly invoke as well. So the extra 
overhead may not be that much of a real problem when you look at 
the big picture and the Model 4's faster clock speed. In any case, 
despite the relative merits of SVC's, we have to deal with them, 
because they're there! 

The SVC's used in FKEY have the following functions! 

0DSPLY Display a message string 

(JPARAM Parse the command line for any parameters in parentheses 
GGTMOD Get the address of a device driver given the device name 
QHEX8 Convert a one-byte value to ASCII Hex representation 
GLOGOT Same as @DSPLY except the message is also sent to the 
JOBLOG, if active, 

QDSPLY should be very easy to grasp as it's just a familiar 
"display a string pointed to by HL" routine. GLOGGER, not used in 
this program, does the same thing except the message goes to the 
joblog, if it's active. QLOGOT, which IS used here, is the same as 
using QDSPLY followed by GLOGGER. You should use GLOGOT 
instead of 0DSPLY for error messages, because if the user had 
joblog active, he will want any error messages to show up there as 
well as on the display. 

GPARAM, the parameter scanner, is a real code saver since it 
will do almost any command line parsing you can imagine with a 
single call, The only overhead is your parameter table (represented 
in FKEY by FRMTBLs) which tells QPARAM what your valid 
parameters are and whether or not abbreviations are legal, etc. A—- 
detailed explanation of GPARAM is beyond the scope of this artid 
but it's well worth your taking the time to study the Technical 
Reference Manual, which shows how a parameter table is set up. 
It's not as exotic as FKEY makes it look, it's just that the 
programmer here was using some of his own personal short-hand 
short-cuts and the features of the EDAS assembler package to 
produce the table. 

Anyway, the theory behind FKEY is simple! First, find the 
data area of the keyboard driver, a task easily accomplished with 
GGTMOD. The DE register is pointed to the two-character module 
name KI. After issuing the GGTMOD SVC, HL will contain the entry 
address of the module, which we throw away because we don't need 
it. DE, on the other hand, will point to the start of the "data area" 
of the *KI driver. Just what is it that we find here? According to 
what documentation I have, it looks like this! 

DE -=> the last character entered 

DE+1 ==> Contains the repeat time check which is the system's 

timer value that when reached will result in a repeat of 

the last character if the keycode scanned has not 

changed. 
DE+2 ==> Contains the waiting time in timer units that must 

transpire before a character can initially be repeated. 

This value is set by the SETKI (Wait*nn) library 

command, 
DE+3 »=> Contains the repeat rate in timer units. Set by SETKI 

(Rate=nn). 
DE+32 «> The function key table (on Model 4 and 4P only, may be 

elsewhere on the MAX 80 and other machines on which 

TRSDOS & is implemented). 

So at this point, FKEY just adds 32 to DE and stuffs whatever 
value(s) you supply on the command line into the function key code—, 
table. 

An interesting point is borne out here for anyone using ti. 
Model 4 function keys. Since it's possible for these keys to be 
redefined, you may want to add initialization code to any program 
that uses these keys which will save whatever is in the function key 
table, insert whatever values your program expects (even the 
default values) and then, upon termination of your program, 
restores whatever was in the function key table at entry. This 
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would prevent a user from inadvertently locking himself out of 
certain function* of your program or even causing unexpected things 
to happen when pressing the function keys! 

{FKEY/A6H - I5/03/B4 

{Program to set function key codes in TRSDOS 4.x 

! Use! FKEY (DEFAULT ,F1*,S1=,... 

j Sn « shifted Fn. FornetsS Fn="c"! Fn=ddd{ Fnpx'hh' 

; Released to public doniin by Roy Soltoff - 04/13/B4 



0101 




Fl 


EQU 


1 




0001 




SI 


EOU 


1 




0002 




F2 


EQU 


2 




(003 




S2 


EOU 


3 




0001 




F3 


EQU 


1 




0005 




S3 


ED) 


5 




2A00 






ORG 


24I0H 




2600 


E5 


FKEY 


PUSH 


HL 


{Save comand pointer 


2601 


21F626 




LD 


HL,HELLO* 




26M 


3E0A 




LD 


A, 10 


{SDSPLY 


2606 


EF 




RST 


40 




2607 


El 




POP 


HL 




Z608 


11B326 




LD 


DE,PRHTBL* 


{Get peraneter values 


2606 


3E11 




LD 


A. 17 


{flPARAH 


260D 


EF 




RST 


40 




260E 


C2A926 




JP 


NZ,PRMERR 




2611 


114227 




LD 


DE.KWD* 


{Locate «KI driver data area 


26H 


3E53 




LD 


A,83 


{IGTHOD 


2616 


EF 




RST 


41 




2617 


C2A526 




JP 


NZ,KI£RR 




261A 


212001 




LD 


HL,32 


! Index to function key table 


261D 


19 




ADD 


HL,DE 




261E 


E5 




PUSH 


HL 


{Save on stack 


261F 


D021B726 




LD 


IX,PRHTBL*+1 


{Test if user wants to 


2623 


DD7E00 




LD 


A,(K+FH4) 


{ default to systen values 


2626 


DDB6D6 




OR 


(BWSU6) 




2629 


DDB4DC 




OR 


(IX«F2I4) 




262C 


DOB412 




OR 


<IX«S2i4) 




^— 24ZF 


DDB418 




OR 


(EWStt) 




32 


D0B41E 




OR 


(K+S3I4) 




<435 


2037 




JR 


NZ,CHGKEY 




2437 


010000 


DPARH 


LD 


BC,0 


{Init DEFAULTS 


243A 


B0 




OR 


B 




263B 


Bl 




OR 


C 




24X 


2830 




JR 


Z,CHCKEY 


{Go to p/u current key settii 


Z&3E 


21E126 


KWKEYSL 


HUDEFKEY 


{Hove new function key 


2641 


Dl 




POP 


DE 


{ code table 


2612 


D5 




PUSH 


DE 


{Save pointer to table 


2613 


010400 


HOW 


LD 


BC,4 




2414 


EDB0 




LDIR 






2418 


Dl 




POP 


DE 


{Recover table pointer 


2419 


218E27 




LD 


HL,KEYS»-1 


{Index to start of buffer 


241C 


0403 




LD 


6,3 


{Loop for 3 keys 


241E 


C5 


DSPLP 


PUSH 


K 




261F 


010400 




LD 


6C,4 




2652 


09 




ADD 


HL,BC 


{Point to next field 


2653 


C06626 




CALL 


GETKEY 


{Unpack unshifted 


2454 


CD4426 




CALL 


GETKEY 


{Unpack shifted 


2459 


CI 




POP 


BC 




245A 


10F2 




DJNZ 


DSPLP 




245C 


21BF27 




LD 


HL.KEYS* 




265F 


3E0A 




LD 


A, 10 


{COSPLY 


2461 


EF 




RST 


40 




2442 


210000 


exh 


LD 


HL,0 




2645 


C9 




RET 






2646 


1A 


GETKEY 


LD 


A,(DE) 


!P/u key code 


2647 


13 




INC 


DE 




2448 


1F 




LD 


M 




2469 


3E42 




LD 


A,9B 


{CHEX8 


246E 


EF 




RST 


40 




244C 


23 




INC 


HL 




2440 


C9 




RET 






^~ 4E 


11E126 


CHGKEY 


LD 


DE.DEFKEY 




J\ 


El 




POP 


HL 


{Point to Id's table 


2472 


E5 




PUSH 


HL 


{Save for update 


2473 


0404 




LD 


B,4 


{Init for six tests 


2475 


11E324 




LD 


DE,DEFKEY-1 


{Point to start of table 


2678 


CD7F24 


KEYLP 


CALL 


PARSE 




2676 


10FB 




DJNZ 


KEYLP 




267D 


18BF 




JR 


HOVKEYS 





247F DD7E00 


PARSE 


LD 


A, (DO 


{P/u response code 


2482 DD23 




INC 


IX 




2481 DD6E00 




LD 


L,(DO 


{P/u vector 


2487 DD23 




DC 


IX 




2489 DD4400 




LD 


H,(DO 




248C DD23 




DC 


IX 




248E DD23 




INC 


IX 




2490 DD23 




INC 


IX 




2492 DD23 




INC 


IX 




2494 13 




INC 


DE 


JBunp pointer to table 


2495 B7 




OR 


A 




2494 C8 




RET 


Z 




2497 CB7F 




BIT 


7,A 




2499 2007 




JR 


NZ.PARSE2 




249B CB6F 




BIT 


5,A 




249D C8 




RET 


Z 




249E 7E 




LD 


A,(HL) 




269F 23 




DC 


HL 




24A0 44 




LD 


H.(HL) 




24A1 4F 




LD 


L,A 




24A2 7E 


PARSE2 


LD 


A,(HL> 


{Get the new value 


24A3 12 




LD 


(DEM 


{Replace with new value 


24A4 C9 




RET 






24A5 217727 


KIERR 


LD 


HL.KIERR* 




24A6 DO 




DB 


0DOH 




24A9 214427 


PfveEnn 


LD 


HLfPfVQtfft 




26AC 3E0C 




LD 


A, 12 


{0L0GOT 


24AE EF 




RST 


40 




24AF 21FFFF 




LD 


HL,-1 


{Init for error 


24B2 C9 




RET 






24B3 80 


PRHTBLSDB 


80H 




2484 A2443100 




DB 


0A2H,'F1',0 




2488 EA24 




DM 


FH2«tY«fi 




24BA A2533100 




DB 


OAZH,'S1',0 




24BE EC24 




DM 


S1I2+PARMS 




24C0 A2443200 




DB 


0A2H,'F2',0 




24C4 EE26 




DM 


F2K+PARMS 




24C4 A2533200 




DB 


0A2H,'S2',0 




24CA F024 




DM 


S2I2+PARHS 




24CC A2443300 




DB 


0A2H,'F3',0 




2406 F226 




DM 


F3I2+PARHS 




26D2 A2533300 




06 


0A2H,'S3',0 




2404 F424 




DM 


SM+PARMS 




2406 57441544 




06 


57H, 'DEFAULT' 


,0 


26DC 41 55 4C 54 00 








24E1 3826 




DM 


DPARK+1 




26E3 00 




NOP 






26E4 81918292 


DEFKEY 


DB 


81H,91H,B2H,92H,83H,93r 


24E8 83 93 










26EA 00000000 


PARKS 


DM 


0,0, 




26EE 00 00 00 00 00 00 00 00 






24F6 0A444B45 


HELLO* 


DB 


10,'FKEY - Change or reset Model 4 function 1 


24FA 59 20 2D 20 43 48 41 4E 47 45 20 4F 72 20 72 45 73 45 74 20 


270E 4D4F44454C20 34 20 64756E43 74 49 4F4E204B4579 


2722 73 










2723 0A507542 




DB 


10, 'Public Dowin - Hritten by Roy Soltoff' 


2727 4C 49 63 20 44 4F 40 41 49 6E 20 2D 20 57 72 69 74 74 65 4E 


273B 20 4279 20 526F79Z0 536F4C714F6464 


274A 2C2M14C 




DB 


', All rights reterved.',10,13 


274E 4C20 72694748 7173 20 7Z65734572 76 45442EOAOD 


2762 244B4903 


KMODO 


DB 


'M',3 




Z766 50617261 


PRHERR* DB 


'Parameter error! ',13 


276A 40 45 74 45 72 20 45 72 72 4F 72 21 0D 




2777 43414E27 


HERR* 


DB 


'Can' ,39, 't locate tXI driver ',13 


2776 74 20 4C6F43 4174 45202A1B4920*472*?76 45720D 


278F 4631203D 


KEYS* 


DB 


'Fl • xx,yy{ 1 


F2 ■ xx,yy{ F3 ■ xx,yy',13 


2793 20 78782C79793B204432203D20 78782C79793B20 


27A7 4433 20X20 78782C7979K) 




2400 




END 


FKEY 








SYHBOL TABLE 


Fl 0000 


SI 


0001 


F2 0002 


62 0003 F3 0004 


S3 0005 


FKEY 


2400 


DPARH 2437 


HNKEYS243E KM4 2443 


DSPLP 244E 


EXIT 


2442 


GETKEY 2444 


OBEY 244E KEYLP 2478 


PARSE 247F 


PARSE2 


24A2 


KIERR 24A5 


PRHERR 26*9 PRHTBL* 24B3 


DEFKEY 26E4 


(UBMB 

rrffvea 


24EA 


HELLO* 24F4 


KIHODt 2742 PRHERR* 2764 


KIERR* 2777 


KEYS* 


278F 
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MAGIC MATH PLUS 

A continuing series feature in Northern Bytes 

by Dr. Michael W. Ecker 

CDr. Michael Ecker, an Associate Professor of Mathematics 
and Computer Science at the University of Scranton, is a 
contributing editor of Popular Computing and Soft Sector (and 
formerly of Byte and Computer Gaming World) for which computer 
magazine! he writes columns on mathematical and computer 
recreations. Most notable is his monthly column "Recreational 
Computing" in Popular Computing. A book based on material similar 
to that in his columns is scheduled for release by Arco Publishing in 
the Fall of 1965. He also does occasional freelance pieces on 
financial mathematics, and software reviews. As the alter ego of 
Recreational Mathemagical Software. Dr. Ecker offers this 
serialization of some of his Magic Math Flu* software, a collection 
of programs of "mathemagic". games, educational programs, 
financial utilities and numerous number tricks. At least one 
program from Magic Math will b offered in each installment. 
. Readers who would prefer not to type in programs can purchase a 
disk directly from him. Northern Bytes is pleased to extend its 
coverage of useful information for TRS-80S to basic Basic 
applications and recreations. Information regarding questions for 
Dr. Ecker and/or ordering will be provided at the end of each 
article .1 



Superblackjack! The Game of 110 
by Michael W. Ecker, PhD 

Mathematicians are never content, it seems, to leave well 
enough alone. After enjoying blackjack, perhaps you too could use a 
change. With that in mind, consider this mathematical variation of 
that game. 

In 110, you play against your computer, Your goal is to get a 
score as dose to 110 as possible without going over. In fact, it has 
to be closer to 110 than your opponent's, If all your possible 
scores go over 110, you lose immediately. All ties will be 
considered a draw. There may be no betting, insurance, doubling, 
surrendering or splitting pairs, The computer will keep track of the 
number of games won. Unlike 21's rules, all 110s are considered 
equal, regardless of whether 110 arises as a super-blackjack (ace 
and ten value) or by more than two cards. Note that 10x11 = 110, as 
opposed to 10+11 ■ 21} i.e. there is some multiplication involved. 

As with 21, you are dealt cards and keep track of your card 
point totals. However, the way these are calculated is different 
here. Indeed, the most important difference between 110 and 21 is 
that here you multiply and sometimes add, instead of just adding. 
You are each dealt two cards. Both of yours are face up, as are the 
computer's. (In 21, you would not see the dealer's second card. But 
it's your computer, so why should you give it any advantages?) 
Multiply your two cards' face values, counting picture cards as 10. 
An ace on the first two cards (of player or dealer) may be counted as 
1 or 11. (Due to programming difficulties, later aces are counted 
solely as 11.) A 110 (an ace and either a ten or a picture card), is 
analogous to 21 - blackjack, (Get it?) Suppose you have an ace and 
a seven, giving you alx7»7orllx7 = 77so far. Hmmm... not 
very close to 110... You may wish to take another card. Whatever 
you draw next you add to 7 or 77. So, if you now get a picture card 
(11, 12, 13) or ten, your score is now 7 + 10 = 17 or 77 + 10 * 87. 
Now here is the tricky part. If you decide to take still another card 
in order to get closer to 110, the previous card - having a value of 
10 in this case - is no longer counted as before. Say your fourth 
card is a 3. You instead multiply your third and fourth cards' 
values together! 10 x 3 = 30. Now add this product to the previous 
one(s): 7 ♦ 30 ■ 37. or 77 + 30 ■ 103. If you wish to take one more 
card, its value is added to your 37 or 103. This process continues in 
the same way. Note that only first or second card aces may be 
counted as 11, thus giving some extra chances to get closer to 110 
without going over, as with blackjack, Your hand is a "bust" if all 
your possible totals exceed 110. 

In general, if you take an even number of cards, you multiply 
together the first two cards, the second two, etc. and then add up 
those products. If you take an odd number, you do the same, except 
that the last card's value is simply added to the sum of the products 
of the pairs. Let's arbitrarily agree that the dealer (computer) 
must hit with 75 or less, unless player has already busted, and stick 
at 76. I arrived at the 76 by considering that ace and six would 
cause a dealer to stop at blackjack, so 1 1 x 6 ■ 66 is analogous. But 
one would never stop there due to ability to add safely one more 
card, so adding a ten, we get 76. It is also nice because a player's 
7-11 cards would beat a 76. just as a seven and ace would beat six 
and ace of dealer at a casino. 



In practice, the program I've provided here does all the 
calculation for you, and rules are included in the program itself, 
You only need consider whether the next card value will be 
multiplied or added as part of your decision to hit or stick. Note 
that the program requires that you input "H" and hit <Enter> to hit, 
or "S" and hit <Enter> to stick. 

In any case, enjoy the program. I actively solicit your 
comments, pertinent questions, suggestions, improvements (always 
plenty of room for them!) and so on. Write to me directly at tht 
address above. For those who own TRS-80 Model 1, 3, 4 or 4P and 
who would prefer not to type in the program, send me a disk (or 
tape) and «7 (or *9.50 alone) and I'll include the program, plus an 
extra program or two. Please mention your computer model too, 
Readers with Model 3. 4 or 4P disk systems with at least one disk 
drive may tlso obtain Super-Blackjack as part of the 36 program, 
double volu.ne collection available on Magic Math Plus. 

Magic Math comes on a self-booting disk with XDOS, a 
licensed disk operating system compatible with TRSDOS 1.3. from 
Mr. Jim Kyle of the Software Factory. The collection is totally 
menu generated (again, courtesy of software from the Software 
Factory and available from Recreational Mathemagical Software). 
This combination makes use of Magic Math almost automatic. 

Volume 1 contains approximately 20 programs, including 
Fastloan, Compound Interest, Super-blackjack, Super-Trick, Super- 
Fast Prime Number Cruncher, The Game of N, Fibonacci Numbers, 
Additive Sequences, Base Two (a trick with explanation) and loads 
of other goodies! 

Volume 1 sells for S24.95 plus si for shipping and handling. A 
volume 2, written by programmer/writer Mr. David B. Lewis (who 
writes in the likes of 80 Micro and others), is available with lots of 
other numerical curiosities involving convergence, as in the Collati 
conjecture, and with graphic and other games (as in Hexapawn, 
Repeater, etc.), with at least 15 programs available for the same 
price. Same menu generated format available for Volume 2. 

Special offer! Volumes 1 and 2 combined, with the self-booting 
disk, XDOS, a minimum of 36 programs (including some bonuses and 
tutorials) in a menu generated format, a title page and four menu 
programs / pages - all for 436 (that's just *1 per program) plus *1 
shipping and handling. 

Lastly! I will be pleased to send anybody who wishes further 

Information a catalog if you send a self-addressed stamped 

envelope. I remind you again that your comments and questions art 

welcome and appreciated. Until next issue! Happy Computing! 

Dr. Michael W. Ecker 

Recreational Mathemagical Software 

129 Carol Drive 

Clarks Summit, Pennsylvania 18411 

(717) 586-2784 

I REM SUPERBLACK, by Dr. Michael W. Ecker, copyright 1984 

6 CLSiPRINT Q273, CHR*(23> "SUPER-BLACKJACK" 

7 FOR DELAY=1 TO 1000!NEXT!PRINT!PRINT " The game of 
110" IFOR DELAY- 1 TO 2000!NEXT 

8 PRINT CHR»(28)5PRINT! PRINT " A bonus from 
Recreational Mathemagical Software" 

9 PRINT! PRINT " copyright 1984, Dr. Michael W. Ecker 

"ifor delay=1 to 2500!next 

10 cls!print!input "would you like instructions (y or 
n>";q* 

II if qs-"y" then gosub 1000$ rem instructions 

15 clssdefint a-z 

16 input "for increased randomness, please input a 2 or 
3 digit number"! r 

17 cls! for a-l to r! r-rnd(13)5 next a 

20 dim pla(20,2), deal(20,2)s rem ought to cover enough 
cards & first aces 

30 dim ps(20,2),ds(20,2>! rem player and dealer scores 
40 fcafj>pcard+l!dcard«dcard+i; rem cards for player 

and dealer 

50 pla(pcard,1)=rnd(13>! if pla(pcahd,1h) then 50 

60 deal(dcard,1)=rnd(13): if deal(dcard,1w) then 60 

70 if pcarik3 and pla(pcahd,1)-1 then pla(pcard,2)-11! 

rem use ace as 1 or 11 

80 tf dcapjx3 and deal(dcard,1>-1 then deal(dcard^2)=11! 

REM 1st 2 CARDS ONLY 

90 GOSUB 410! REM LOOK FOR PICTURE CARD EQUIVALENTS (11, 

12, 13) 

100 IF PCARIX2 THEN 40 

110 PRINT "PLAYER'S FIRST TWO CARDS' VALUES ARE! 

"!PLA(1,1);PLA(2,D! PRINT 

120 PRINT "DEALER'S FIRST TWO CARDS' VALUES ARE! 

"JDEALd.D!" HIDDEN"! PRINT 
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130 PRINT! PRINT "POSSIBLE PLAYER SCORES! " 

140 PI(D-PLA(1,1)»PLA<2,1)» REM PRODUCT OF FIRST 2 CARDS 

FOR PLATER 

150 DI(l)-DBAL<l(i)»DEALt2,l>t REM DITTO FOR DEALER 

1*0 OOSUB 6001 REM COMPUTE POSSIBLE PLAYER SCORES 

180 OOSUB 710! REM COMPUTE POSSIBLE DEALER SCORES 

190 OOSUB 4605 REM PLAYER TO DRAW CARDS? (HIT OR STICK?) 

00 PRINT! PRINT "PLAYER, YOUR BEST SCORE IS "i!PMAX«0 
210 IF PI(2>-0 THEN FMAX-FS(PCARD,1> 
220 IF PMAXM10 THEN PMAX-0! GOTO 260 

230 IF PS(PCARD,1)<"110 THEN PMAX-PS(PCARD,1> ELSE PMAX-0 
240 IF PS(PCARD,2K»110 AND PS(PCARD,2»PMAX THEN 
FMAX-PS(PCARD,2> 

230 PRINT PMAX! PRINT ! IF PCARD>=3 AND ST*<>"S" AND 
FMAX>0 THEN GOSUB 460! GOTO 200 
260 IF PMAX-0 THEN PRINT "... YOU LOSE! 
SORRY !"!DWIN-DWIN+ IS GOTO 870 

270 FOR DELAY=1 TO 1000! NEXT 5 PRINT "LET'S SEE WHAT I 
HAVE..." 

280 INPUT "HIT RETURN TO CONTINUE'fQ*! CLS 
285 PRINT "THE DEALER'S CARDS ARE! "!DEAL<1,1)}DEAL(2,1> 
290 PRINT! PRINT "THE DEALER'S BEST SCORE SO FAR 
IS"!!DMAX=0 

300 IF DK2J-0 THEN DMAX-DS(DCARD,1) 
310 IF DMAXM10 THEN DMAX=0! GOTO 350 

320 IF DS(DCARD,lK»nO THEN DMAX-DS(DCARD,1> ELSE DMAX-0 
330 IF DS(DCARD,2><-110 AND DS(DCARD,2)>DMAX THEN 
DMAX-DS(DCARD,2) 

340 PRINT DMAX1 INPUT "HIT RETURN TO CONTINUE..."!Q* 
350 IF DMAX«0 THEN FWIN-FWIN+1! PRINT! PRINT "... YOU 
WIN!"! GOTO 870 

360 PRINT ! IF DMAX>75 THEN PRINT "DEALER MUST STICK,"! 
ELSE 820 

370 IF DMAX>PMAX THEN DWIN-DWIN+1! PRINT "I WIN!"! GOTO 
870 

380 IF PMAX>DMAX THEN FWTN-PWIN+1! PRINT "YOU WIN!"! 
GOTO 870 

390 IF DMAX-PMAX THEN PRINT "A TIE!"! GOTO 870 
400 END 
.410 FOR PICTURE-11 TO 13 

20 IF FLAtPCARD.l (-PICTURE THEN PLA(PCARD,1)-10 
430 IF DEAL(DCARD,1 (-PICTURE THEN DEAL(DCARD,1)»10 
440 NEXT PICTURE 
450 RETURN 

460 PRINT! PRINT I PRINT "PLAYER, DO YOU WANT TO HIT OR 
STICK?" 

470 PRINT "TO STICK, TYPE 'S' AND HIT THE RETURN KEY." 
480 PRINT "TO HIT, TYPE 'H' AND HIT THE RETURN KEY." 
490 5T«-"" 
500 INPUT ST* 

510 IF ST»<>"S" AND ST»0"H" THEN 470 
520 IF ST»-"S" THEN RETURN ! ELSE PCARD-PCARD+1 
530 PLA(PCARD,l)»RND(13)! IF PLA(PCARD,1>»0 THEN 530 
540 GOSUB 410 

550 PRINT 5 PRINT "PLAYER, YOUR CARDS SO FAR ARE!" 
560 FOR K-l TO PCARD 
570 PRINT PLA(K,1>! 
580 NEXT K 

590 PRINT ! PRINT "YOUR POSSIBLE SCORES ARE!" 
600 FKOUNT-1! REM COUNT POTENTIAL NUMBER OF DIFFERENT 
PLAYER SCORES 

610 PS(PCARD,PKOUNT>«PI<PKOUNT> 
620 FOR PAIR-4 TO PCARD STEP 2 

630PS(PCARD,PKOUNT>-PS(PCARD,PKOUNTHPLA(PAIR- 
1,1)*PLA(PAIR,1) 
640 NEXT PAIR 

650 IF PCARD/2>INT(PCARD/2> THEN 
PS(PCARD,PKOUNT>-PS(PCARD,PKOUNT>+PLA(PCARD,l> 
660 IF PS(PCARD,PKOUNT)<"110 AND FS(PCARD,PKOUNT»0 THEN 
PRINT FS(PCARD,FKOUNT>S!S ELSE IF PS(PCARD,PKOUNT»0 THEN 
PRINT "BUST "{ 

670 IF PKOUNT-2 THEN RETURN 

680 IF PLA(1,1)-1 OR PLA(2,1>-1 THEN PKOUNT-FKOUNT+1 ELSE 
TETURN 

>90 IF PLA(1,1>«1 THEN PI(2)-PLA(1,2>*PLA(2,1) ELSE 
PI(2>"FLA(1,1>«FLA<2,2> 
700 OOTO 610 

710 DKOUNT-1! REM COUNT POTENTIAL NUMBER OF DEALER 
SCORES 

720 DS(DCARD,DKOUNT>-DI(DKOUNT) 
730 FOR PAIR-4 TO DCARD STEP 2 



740DS(DCARD,DKOUNT>=DS(DCARD,DKOUNT)+DEAL(PATR- 

1,1>*DEAL(PAIR,1) 

750 NEXT PAIR 

760 IF DCARD/2>INT(DCARD/2) THEN 

DS(DCARO,DKQUNT)-DS(DCARD,DKOUNT>+DEAL(DCARD,l) 

770 IF DStDCARD,DKOUNTK"lW AND DS(DCARD,DKOUNT)>0 AND 

DCARD>2 THEN PRINT DS(DCARD,DKOUNT)i!i ELSE IF 

DS(DCARD,DKOUNT)>0 AND DCARD>2 THEN PRINT "BUST "J 

700 IF DKOUNT-2 THEN RETURN 

790 IF DEAL(1,1)-1 OR DEAL<2,1)-1 THEN DKOUNT-DKOUNT+1 

ELSE RETURN 

800 IF DEAL(1,1>*1 THEN DN2)-DEAL(1,2)*DEAL(2,1> ELSE 

DI(2)-DEAL( 1 , 1 >*DEAL<2,2> 

810 GOTO 720 

820 DCARD--DCARD+1 

830 DEAL(DCARD,l)=RND(13)i IF DEAL(DCARD,l)-0 THEN 830 

840 GOSUB 410! PRINT "DEALER'S CARDS ARE!" 

850 FOR K=l TO DCARD! PRINT DEAL(K,1)}! NEXT K 

8*0 PRINT! PRINT "DEALER'S POSSIBLE SCORES ARE!"! GOSUB 

710! GOTO 290 

870 PRINT ! PRINT "THE TALLY! YOU'VE WON"PWIN"GAMES AND 

I'VE WON"DWIN 

880 INPUT "TO PLAY AGAIN, HIT RETURN. TO RETURN TO BASIC, 

TYPE B FIRST."! Q» 

835 IF Q*="B" THEN END 

890 FOR J-l TO DCARD!DEAL(J,l)-0!DEAL(J,2>-0! NEXT 

900 FOR J-l TO PCARDSPLA<J,1)-0!PLA(J,2M>! NEXT 

910 FOR J=l TO DCARD! FOR K=l TO DKOUNT!DS(J,K)=0! NEXT ! 

NEXT 

920 FOR J=l TO PCARD! FOR K-l TO FKOUNT!FS(J,K>=0! NEXT ! 

NFXT 

930 PCARD-0!DCARD=0! CLS ! GOTO 40 

940 END 

1000 CLS! PRINT "SUPER-BLACKJACK IS PLAYED A LOT LIKE 

BLACKJACK." 

1010 PRINT! FRINT "YOU ARE DEALT TWO CARDS, AS IS THE 

DEALER (TI'E COMPUTER)." 

10?.0 PRINT "INSTEAD OF ADDING THE CARDS' FACE VALUES, 

TI'EY APE MULTIPLIF.D." 

10?0 PRINT "PICTURE CARDS ARE AUTOMATICALLY REPORTED 

*<3 HAVING A VALUE OF" 

1040 PRINT "10. AN ACE COUNTS AS 1, EXCEPT THAT ON THE 

FIRST 2 CAPDS, YOU" 

1050 PRINT "MAY ALSO COUNT AN ACE AS AN 11 IF YOU WISH. 

THE COMPUTER WILL" 

1060 PRINT "HANDLE THAT FOR YOU AUTOMATICALLY, 

HOWEVER." 

1065 FRINTiPRINT "THE OBJECT IS TO AMASS A TOTAL CLOSER 
TO 110 THAN THE DEALER" 

1066 PRINT "WITHOUT GOING OVER 110." 

1070 PRINTSPRINT! INPUT "Hit <ENTER> to continue";X 

1080 CLS! PRINT "NOW, THIS GAME IS ACTUALLY A BIT MORE 

INVOLVED, AND A BETTER" 

1090 PRINT "NAME WOULD BE THE GAME OF 110. YOU SEE, 10 X 

11 - 110. DO YOU" 

1100 PRINT "SEE THE ANALOGY TO BLACKJACK?" 

1110 PRINTIPRINT "NOW HERE IS THE CATCH. FIRST OF ALL, 

BEYOND THE 2 CARDS, IF" 

1120 PRINT "YOU CHOOSE TO TAKE A THIRD CARD, THAT VALUE 

18 NOW ADDED TO" 

1130 PRINT "THE PREVIOUS PRODUCT. FOR INSTANCE, SAY YOU 

HAVE THE CARDS" 

1140 PRINT "10 AND 7. IF YOU STICK (STAND), THEN YOUR 

SCORE IS 70, WHICH" 

1 150 PRINT "IS ONLY A FAIR SCORE. BUT IF YOU TAKE A HIT 

(ANOTHER CARD)," 

1160 PRINT "THEN YOU CAN GET CLOSER. SAY YOU DRAW A 6. 

NOW THAT 6 IS ADDED" 

1170 PRINT "TO YOUR PREVIOUS 70 TO GIVE 76, A BIT BETTER." 

1 180 PRINTSPRINT! INPUT "Hit <ENTER> to continua"! X 

1190 CLS1PRINT "IF YOU TAKE ANOTHER CARD NOW, YOU HAVE 

TO RE-CALCULATE THE" 

1200 PRINT "SCORE. (Of courra, tht computer doai it for you.) 

NAMELY," 

1210 PRINT "TAKE THE LAST 2 SCORES AND MULTIPLY THEM 

TOGETHER. SAY YOU" 

1220 PRINT "NOW GET A 3. YOUR CARDS ARE 10, 7, 6, 3. YOU 

MULTIPLY 10 BY 7" 

1230 PRINT "AND 6 BY 3, THEN ADD THE PRODUCTS. YOU GET 70 

+ 18 ■ 88 " 

1240 PRINTSPRINT "IF YOUR 4th CARD WERE A 10 INSTEAD OF A 
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3. YOUR TOTAL WOULD" 

1250 PRINT "BE OVER 110 AND TOUR HAND WOULD 'BUST' (OR 

'BREAK'), AND YOU" 

1260 PRINT "WOULD THEN BE THE LOSER OF THAT HAND. 

SUPPOSE. THOUGH, THAT YOU" 

1270 PRINT "HAVE YOUR 10, 7, 6, 3 AGAIN, FOR A SCORE OF 88. 

IF YOU TAKE A" 

1280 PRINT "3th CARD, THEN IT IS ADDED TO 88." 

1290 PRINT! PRINTJ INPUT "Hit <ENTER> to continue"} X 

1300 CL8J PRINT "IN OTHER WORDS, THE BCOR1NG IS: IF YOU 

?310 E PR1NT "OF CARDS, THE FIRST TWO ARE MULTIPLIED, THEN 

THE SECOND TWO#" 

1320 PRINT "AND SO ON. THE PRODUCTS ARE ADDED TOGETHER. 

S FHINP'OF CARDS, DO THE SAME PROCESS, LEAVING THE 
LAST CARD. THEN JUST" 

1340 PRINT "ADD THAT VALUE TO THE RESULT." 

1350 PRINT! PRINT "AS WITH 21, CARDS ARE DEALT FACE UP, 

EXCEPT FOR DEALER'S 2nd." 

1360 PRINT "THAT CARD REMAINS HIDDEN UNTIL AFTER YOU, 

THE PLAYER, HAVE" mmt 

1370 PRINT "DRAWN AS MANY CARDS AS YOU WISH. THEN 

YOU'LL SEE DEALER'S HAND." 

1375 PRINT? INPUT "Hit <ENTER> to continue'JX 

1380 CLSJPRINTJPRINT "NOTE*, THERE IS NO BETTING, 

INSURANCE, SPLITTING OR DOUBLING." 

1390 PRINT "HOWEVER, THE COMPUTER DOES KEEP TRACK OF 

THE NUMBER OF GAMES" 

1400 PRINT "WON BY THE PLAYER AND THE DEALER 

(COMPUTER)." 

1410 PRINTJPRINT "ONE OTHER DIFFERENCE IS THAT 110 ON 

THE FIRST TWO CARDS IS NOT" 

1420 PRINT "AN AUTOMATIC WINNER. THUS, IT IS POSSIBLE FOR 

YOU TO CATCH UP" 

1430 PRINT "TO YOUR OPPONENT D* HE GETS A NATURAL 1 10 BY 

1440 PRINT "NOTE THAT DEALER MUST HIT ON 75 OR LESS AND 

STICK ON 76 OR MORE." 

1450 PRINT! INPUT "TO BEGIN PLAY, HIT <ENTER>."?X 

1460 CLS! PRINT 8220, "GOOD LUCK!"!FOR Z»l TO 1000SNEXT 

1500 RETURN 



AUDIO AMPUFIER IN YOUR VIDEO 
by Gary Bryot 

CReprinted from SYDTRUG NEWS, P.O. Box 297, Padstow, Hew 
South Wales 2211, Australia.] 

Soma of you may remember ont club meeting 4 few month* agr 
whan attar a long day demonstrating a particular music program, tr 
Jury riggad amplifier that I had connactad to my system daddad to 
give up the ghott in a rather epertacular manner (and boy didn't it 

BTINK!>. 

Thie prompted ma to develop a aimple amplifier that gave a 
better quality output than the converted radio* and such that we 
have all been using (thie indudee the inbuilt amplifier of the 
SCRAP-80 (Blue Label). 

So here i* a simple amp which I feel meete all the 
requirement* I needed, I hope that it will meet your own needs. The 
details of the amplifier, with volume control, which mounts in and is 
powered from the video, follows. 



Z-6080 
R-4420 
R-4320 
R-4730 
R-2360 
R-1012 
R-1114 
R-6823 



PARTS REQUIRED 

1 x LM380 Audio Power Amplifier 

2 x 470uF Electrolytic Capacitor (PCB) 
1 x 25uF Electrolytic Capacitor (PCB) 

3 x 2.2uF Tag Tantalum Capacitor 
1 x O.luF Ceramic Capacitor 
1 x 2.7ohm 1/4W Resistor 
1 x 47Kohm 1/4W Resistor 
1 x 50Kohm Potentiometer (Log Scale) 

The Circuit Diagram, PCB layout and Component position drawing 
appear below. The Video Monitor may not be fitted with an in-built 
speaker, if not an 8 ohm speaker of not less than 2 Watt power 
rating should be used. I have left details of fitting and positioning 
to you, as this varies between different monitors. 



NOTE: PC BOARD LAYOUTS NOT EXACTLY TO SCALE 




Tap Layout 



PCB Layout 
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NEWIDQS/SO USERS' GROUP 
by Greg Small 

Welcome to this new column devoted to the understanding! use 
and modification of Newdos/80. 

Firsti some background on the reasons for the existence of 
> h ts column . 

This past summer I bought a 21 meg hard drive and Newdos/80 
^(•sion 2.5 from Charley Butler at TAS, To try and eliminate the 
border crossing hassles from the U.S.A. to Canada I drove to 
Lansing to pick up my new "toys". 

Charley and I spent some time reminiscing about the "good ole 
days" and the so-called "demise" of Newdos/80. He talked about 
my plans for an International Newdos/80 Users' Group as outlined 
in previous issues of Northern Bytes and also about the changes 
that many individuals have made to the DOS on their own. 

We discussed the duplication of efforts that had to be 
occurring. 

The Newdos/80 Users' Group does exist — but for the time 
being only as an adjunct to these pages. My thanks to the 15 or so 
people who took the time to write or call. Your thoughts and ideas 
are appreciated. 

The problem that occurred was that the people who did write, 
for the most part, did not live in North America - and any individual 
communications or information sharing were taking considerably 
longer than desirable to arrive at the destination. By using this 
medium we will be able to pass along information on a more timely 
basis. 

My idea for this column is to have a central storehouse of 
ZAPst ideas, documentation, etc. that can be drawn from as needed. 
Some of you wanted technical topics discussed. Others said they 
would be satisfied if the darn manual was explained in "real English 
sentences". Others wanted to know specific shortcuts that could be 
used. I hope to address portions of all of those things in these 
pages and will appreciate any specific comments, requests or 
criticisms. 

Some of the other things that I want to detail here are user 
generated ZAPs to either the DOS or application programmes. 
Besides documenting the patches I will also discuss the various 
^means of developing these patches. 

I want to cover the differences between the Model I and III 
sions and the floppy and hard drive versions. 

If you have any topics you want discussed or specific 
questions you would like to have answered feel free to voice them. 

CI also hope to convince Jack to add public domain disks 
specifically devoted to ideas and files from these columns and 
specific Newdos/80 utilities.] 

Next, a little background about me. I bought a 16K Model I 
tape system in December 1979# This was a hobby that could pay for 
itself — or so I told my wife. 

Well, currently I own 2 Model I's, two 4's, a 100, and a PC-1. 
I also have nine floppies, a 21 meg hard drive, two modems, three 
printers, two printer buffers and lots of cooling fans. And it now 
does pay for itself. [All this equipment also does a good job of 
heating the basement office even when the outside temperature 
reaches -20 degrees F.l 

I am using a self-written BASIC program to maintain a 20,000 
name mailing list for a local charitable organization, Without 
Newdos/80's "funny files" this would not have been practical. 

But — and this is critical — I learned most EVERYTHING I 
know about computers from reading 80-Micro . The Alternate Source 
Programmer's Journal . 80-U.S,, Dennis Kitsi' long gone 
newsletters, Bill Barden's Disk Interfacing Guide , much of the IJG 
series, Hubert Howe's early columns in Computronics Newsletter 
and, of course, Jack Decker's TRS-80 Rom Routines Documented 
($19.95 plus S3.00 shipping from The Alternate Source). 

The other major learning tools I have used are Newdos/80's 
disassembler, TASMON and any machine language program I got my 
hands on. Commenting a disassembly and patching a program is 
invaluable experience in learning machine code. 

Which brings us to this issue's primary topic, Newdos/80's 
BOOT/SYS commented. 

I will assume that all of you who care, know how the TRS-80 

it routine gets BOOT/SYS into memory. Once it is in memory the 

register is set to 4200H (4300H in the III/4) and control is 

Transferred to the program (BOOT/SYS in this case) at that 

address. 

Following is the commented code I put together for the Model 
I Version. I have much of the Model ni Version commented and will 
include that in a future column. 



Newdos/80 Version 2.0 (Model I) - single density - commented 
disassembly of BOOT/SYS. The additional lines that start with "{*" 
are for the double density version with a single density track 0. 

Machine Code Copyright by Apparat, Inc. 

Comments by Greg Small (c) 1985 - All Commercial Rights Reserved 



SETUP - get ready to read SYSI/SYS frm the disk 



4210 II 

4211 FEU 



4213 
4214 
4217 

{14217 
4219 
42IB 
42K 
42IE 
42lf 
4211 

IH2U 
4214 
4215 
4218 



F3 

21037 

36FE 

36FE 

3601 

23 

3611 

23 

361)1 

111511 

119501 

09 

31EM1 

21FF51 



NOP 
CP 

DI 

LD 

LD 

LD 

LD 

DC 

LD 

DC 

LD 

LD 

LD 

Da 

LD 
LD 



11H 



HW37ECH 

(HU.IFEH 

(HU,IFFH 

(H.),HMm 

H. 

(H_),IBH 

HL 

(H.M0H 

0E,II15H 

DE.OIOSH 

BP.41EIH 
HL.51FFH 



|Do nothing 

{4212 = Directory "track" 

[This is mother do nothing instruction 

{Turn off the interrupts 

{Point to the comand/status register 

{Ensure we are set to SINGLE density 

{Ensure we are set to DOUBLE density 

{Force an interrupt on the FDC 

{Point to the track update register 

{Store a I in it for track zero 

{Increm en t to point to sector register 

{Store a zero in it for sector zero 

{Set DE for track 1 sector 5 

{Set DE for track 1 sector 5 

{Store it for disk read 

{Set up * new stack area out of the way 

{Point to the end of temporary buffer 



HOVE LOADER - processes loader cades 



421BCD5242 
421EFE21 
4221 47 
422131129 
4223 57 
4221CD5242 

4227 4? 

4228 CD5242 
422B5F 
422C 1112 

422EC05242 
423157 

4232 ID 

4233 ID 



CALL 

CP 

LD 

JR 

LD 

CALL 

LD 

CALL 

LD 

DJNZ 

CALL 
LD 

DEC 
DEC 



4252H {Call HOVEDATA IN subroutine 

20H {Is value returned valid loader code 

B,A {Save code in B for later test of type 

NC,424CH {If not valid code! go to HOSTS routine 

D,A {Put the loader code in D 

4252H {Call HOUEDATA IN subroutine 

C,A {Put the quantity to load in C 

4252H {Call HOUEDATA IN sub 

E,A {Put LSB of load address in E 

424* {DEC loader code, if KZ then check for 

{transfer at LOADER >1 subroutine 

4252H {Call HOVEDATA IN sub 

D,A {Put HSB of load address in D 

{ thus taking DE point to load address 

C {Adjust nunber of bytes to load 

C { twice 



{ 

{ GET HOFE - bytes to put in place 

»- 



4234 ZC DC L 

4235 CC5542 CALL Z,4255H 



4238 7E 

4239 12 
423A13 



LD 
LD 
DC 



A,(HL> 
(DEM 
DE 



{Lwrenent pointer for temporary buffer 

{If its full, then call 

{HOVE DATA FR0H DISK subroutine 

{Else put the next byte in A 

{and novt it to the proper place 

{Increnent the proper place 



THRDMAMrY - the cements 



{- 



4236 tD 
423C21F6 
423E 1808 



DEC 

JR 

JR 



C 

NZ,1234H 

421BH 



{Reduce the nuiber of bytes to wove 

{If its not zero go to GET HQRE 

{Done with coments - V to HOVE LOADER 



{- 



LOADER >1 - checks for coments 



4241 1IF9 
4212CD5242 

4245 57 

4246 1A 

4247 FEA5 
4249 13 
424AD5 
424BC8 



DJNZ 

CALL 

LD 

LD 

CP 

DC 

PUSH 

RET 



423BH {If loader H1H then go to THROHAHAY 

425ZH {Call HOUEDATA IN 

D,A {Get HSB of transfer address into D 

A,(DE) {Get first byte of SYSI/SYS in A 

IA5H {Is it SYSTEM CHECK byte (A5H) 

DE {Hove to next byte 

DE {Put it on the stack 

Z {If it was M5H "RET" to it, jumping 

{into SYSI/SYS at 4M1H 

HL,42E5H {Else point to HOSTS wssage 

42C3H {Display it 



424C 21E542 LD 
424FC3C342 JP 

{— ' 

{ HOVEDATA W - fron buffer or fro* disk if buffer eapty 
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42522C DC 

42537E LD 



L {Hove tei» buffer pointer - if increment 

{frat FTH to NH then Z f lag is set 
A,(HL) {Get byte fM HL in A 



1251 CI RET NZ {Return if Zero flag is off - fill 

{through if pest md of buffer 



1255 D? EXX 

1256 MM LD B,IAH 



tReitori witters for reading ditk 
{Store nunber of tine* to try (II) in B 



READ DISK 



1258 21E137 


LD 


HL.37E1H 


1Z5B3601 


LD 


(HL),I1H 


125DD5 


PUSH 


DE 


125EC5 


PUSH 


BC 


125F7B 


LD 


A,E 


1260 D60A 


SUB 


MH 


{H260 D612 


SUB 


12H 


1262 3803 


JR 


C1267H 



{Point to drive select register 
(Select drive zero 
{Save DE - track and sector ranters 
{And BC - only need B for I of retries 
{Load A fron E - sector outer 
(Subtract I of sectors on front of ditk 
{Subtract ♦ of sectors on front of disk 
{If < test value & to CONTINUE 



CHANGE -tides 



1261 5F 



1265 3609 



LD 



LD 



E(A {Get result in E - will be sector nuter 

{on back side 
(HL),WH {Store 1010 1011 in drive select res 

{This selects drive and twitches to 

{backside 



CONTINUE - don't change sides 



1267 21EC37 


LD 


HL,37ECH 


126ACDCE12 


CALL 


12CEH 


126D ED53EE37 


LD 


(37EEN),DE 


1271 3618 


LD 


(HL),1BH 


1273 CDCE12 


CALL 


12CEH 


1276 3688 


LD 


(HL),89H 


1278 11EF37 


LD 


DE,37EFH 


127B 010051 


LD 


BC5100H 


127E CDD712 


CALL 


12D7H 


1281 7E 


LD 


A,(HL) 


1282 E683 


AND 


B3H 


1281 E28112 


JP 


P0,1ZB1H 



{Point to CoMnand/status register 

{Call CHECK STATUS 

{Put track and sector no. in register 

{SEEK at 10ns and verify head position 

{Call OCCK STATUS 

{Read 1 IBM sector w/o head settle delay 

{Point to data register 

5 and tenporary buffer 

{Call DELAY routine 

{Get status fro* CHD/STATUS register 

{Test it for READY 

{Loop till READY 



STORE BYTE - in buffer 


1287 1A LD A((DE) 

1288 02 LD (BC)(A 
128? 03 DC BC 


{Load A fron the data register 

{Put it where BC points in tew. buffer 

{Bunp BC pointer one higher 


START LOOKING - for a byte to be READY 



128AC81E 


BIT 


I1H,(HL) 


12BC C29712 


JP 


MZ,12B7H 


128F CB1E 


BIT 


I1H((HL) 


1291 C2B712 


JP 


NZ,1287H 


1291 CB1E 


BIT 


01H»(HL) 


1296 20EF 


JR 


NZ(1287H 


1298 CB16 


BIT 


I0H,(HL> 


129A 2808 


JR 


Z.12A1H 


129CCB* 


BIT 


01H,(HL) 


129E20E7 


JR 


KZ,1287H 


12A0 CB7E 


BIT 


07H,(HL) 



12A2 28E6 



JR 



Z,128AH 



{Test for DRQ 

{Yes - loop to STORE BYTE 

{DRQ now? 

{Yes - loop to STORE BYTE 

{DRQ yet? 

{Yes - loop to STORE BYTE 

[Test for busy 

{No - go to LOOK AGAIN 

{DRQ yet? 

{Yes - loop to STORE BYTE 

{Test for Not READY - to 

(eliminate possibility of silent death 

{If still READY go to START LOOKING 



LOOK AGAIN - for a byte to be READY 



12M 7E LD A((HL) {Get status in A 

12A5 36D0 LD (HLMDOH {Force an interrupt 

12A7 CI POP BC {Restore BC for tines to test 

12A8 Dl POP DE {and DE for track and sector nurters 

12A9 E6FC AND IFCH {Test for DRQ and/or BUSY 

12AB 200C JR NZ.12B9H {Neither - goto TRY AGAIN 

12AD IC DC E {Bump sector pointer 

12AE 7B LD A,E {Put it in A 

12AF D60A SUB OAH {Test f or > « of sectors per track 

{H2AF D612 SUB 12H {Test f or > I of sectors per track 

12B1 2003 JR NZ.12B6H {Not >, then skip SECTOR INCREMENT 

* ■ -- i .., 

{ SECTOR INCREMENT - at track boundary 



12B3 11 
12B1 1E00 



INC 
LD 



D 
E.08H 



{Increnent track nunber 
{Set sector nuter to 



> SANE TRACK- 


to don't increnent 




t 
12B6D9 
12B7 7E 
12B8C9 


EXX 

LD 

RET 


A((HL> 


{Exchange registers 

{Load first data byte into A 

{Return to caller , — - 


{TRY AGAIN 

* 


12B9C00712 
12BC360B 
12BE 1098 
12CI21D012 


CALL 
LD 
DJNZ 
LD 


12D7H 
(HL),0BH 
1258H 
NL(12DDH 


{Call MASTE IDE 

{Restore head 

{Not 10 tries - goto READ DISK 

{Point to ERROR Message siring 


J" 

{ SHOW IT - one 


byte at 


a tine 




12C3 7E 
12C1FE03 
12C6 28FB 
12C8 23 
12C9CD3300 
12CC 18F5 


LD 

CP 

JR 

INC 

CALL 

JR 


A((HL) 

B3H 

Z(12C3H 

HL 

I033H 

12C3H 


{Put the byte in A 

{Is it a terninator 

{YES - then infinite loop 

{NO - then bunp pointer to next cnar 

{Call single byte display ROM routine 

{Go back to SHOW IT again 


{ TEST BUSY and advise status 


12CECDD712 
12D1CB16 
12D3 20FC 
12D5 7E 
12D6C9 


CALL 
BIT 

JR 
LD 
RET 


1ZD7H 
I0H((HL) 
NZ,12D1H 
A,(HL) 


{Call DELAY routine 
{Test bit of HL for BUSY 
{Loop back to TEST till not BUSY 
{Get status into A 
{Back to caller 


{ DELAY 


12D7 3E06 
12D9 3D 
12DA20FD 
12DCC9 


LD 
DEC 
JR 
RET 


A(06H 

A 

NZ.12D9H 


{Store delay value in A 

JDecrenent by one 

{Not yet - back to decrement it again 

{Done - so go back to caller 


( 

{ ERROR - nessage 




,. 


( 
12D0 IC 
1ZDE IF 
12DF15 

• ♦ • * 

12E1 03 


DEFB 
DEFB 
DEFN 

DEFB 


1CH 
1FH 
'ERROR' 

03H 


{Code for HONE CURSOR 

{Code for ERASE TO END OF SCREEN 

{ERROR Message string 

{Terninator 


• 

{ NO SYS - Message 






1 12E5 IC 
12E6 IF 
12E7 IE 

»•• * 

12ED 03 


DEFB 
DEFB 
DEFM 

DEFB 


1CH 
1FH 
'NO SYS' 

03H 


{Code for HONE CURSOR 

{Code for ERASE TO END OF SCREEN 

{NO SYS Message string 

{Terninator 


12EE 00 
...» 
12FC 00 


NOP 

NOP 




{The 15 bytes fron 12EEH through 12FCH 
{are not used and could be used for 
{disk identification or other things 


12FD DO 
{I1ZFD 00 

12FE 07 
5H2FE 50 

12FF 00 
{X12FF 03 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


OOH 
00H 
07H 
50H 
OOH 
03H 


t 

{The 3 bytes at 12FDH through 12FFH are 
{Moved to the SYSFLAG table indexed 
{fron 1380H. They are noved at 10ZEH 
{and 1D35H of SYS0/SYS 

• 
t 
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Well, that is fine. But what REAL good is if What can be 
done with it? 

Here are some suggestions and things for you to think about! 

At 4257H we could change the number of retries from OAH (10) 
to some other value to allow for a faster error routine with bad 
disks. 

At 425CH and 4266.H we could change the code that selects 
drive to experiment with reading SYSO/SYS from another drivt-~~-- 

At 4272H we could change the SEEK rate from 40ms to i 
10ms or 5ms to allow faster booting. This, of course, would cmy 
work if our drives allow this. 

At 42C6H we could change the jump relative <JR) that locks the 
system up when the NO SYS or ERROR message is displayed to jump 
to the 15 bytes starting at 42EEH. This could allow a JP to 
TASMON or another piece of code that was left in memory or could 
check for a key being pressed to start the boot sequence over. 



The bytes at 42EEH could also be used to display verification 
that certain portions of HOOT ''SYS have been successfully 
completed. 

I will leave these ideas with you. If you do make some 

interesting modifications please write them up and send them to me 

for inclusion here for the rest of the readers. Don't worry about 

the format you use. I would rather get your changes on the back of 

n old envelope written in crayon than not see them at all. 

Next* I want to tell you of some very interesting experiments 
I have made with my Model I system. I ran my BBS on a Model I 
with floppies for about 12 months. 

After a while I began to expect to find the system hong up 
after an attempted reset about two or three times per month. This 
was the old Model I reset problem. Many of us have pressed the 
reset button and found that the Model I ri'd not properly reset. So 
we pressed it again and thought it was not pressed firmly enough 
the first time. 

But when you run a board "' hour a per day you begin to realize 
that there is a definite problem with the re-booting of a Model I. 

I cleaned the connectors. hen that did not solve the problem 
for long I installed gold plugs, "hat worked for a while but I was 
soon back to the same old problem. Next I made patches to TBBS 
that were suggested by tht- author, I also patched Newdos/80 to 
allow a longer head settle time on rt-boot. Those things also did 
not solve the problem. 

Next I decided to take the bull by the horns. 1 patched TBBS's 
reset code to jump to 0066H on the recommendation of a friend who 
made his system boot from double density and/or 8 inch drives. 
That did not help. 

I added a FORCE INTERRUPT instruction also on his 
suggestion, Still no success. 

So finally I changed the patch to jump to a piece of code I 
wrote that resided in high memory. There I duplicated the ROM 
boot routine. But to prove my work and further the discovery 
process I had this routine print a letter on the screen after each 
major subroutine was success rully executed. Reset was more 
reliable for a while — but then it would go bad again. 

However, now I had some dues as to where the problem was 

located. Or did I? Each time I found the system hung I also found 

the letters A-L on the screen and L was the letter that was printed 

- ; ust before the execution of the JF 4200H instruction in my 

•located "ROM code". 

So, possibly the problem was not the Model I but was really 
Newdos/80's BOOT, This was the reason for the foregoing 
commented disassembly but ill seemed well in the code, 

My next theory was that memory was getting "farkled" in the 
4200H - 42FFH page and BOOT/SYS was therefore corrupted and 
hanging the system. I installed code to do a checksum on that page 
and test for a successful jaad from disk. If the code passed the 
test then an "M" was added to the A-L already on the screen. 

The next time the system hung the letter M was showing! So 
BOOT was successfully loaded and somewhere after the jump to 
4200H the system hung. 

I decided then that it was time I bought a Model 4, I put the 
board on it and have not had the system hang since then. 

What does all this lead me to think? The Model I has a very 
definite problem and I have NOT found it but have eliminated lots 
of suspected problems. I really do not think it is Newdos/80 as 
Model I DOS users of all flavours complain of these problems. 

Does anyone have any other thoughts? 

Now, for some miscellaneous house-keeping. You may contact 
me in one of the following ways'. 



By mail! 



Greg Small 

Box 607 

Stouffville, Ontario, Canada 

LOH 1L0 



If you want a reply enclose a self-addressed #10 or larger 
envelope. Canadians should affix current Canadian postage. 
Americans may send 35 cents lit coins or a buck or two and I'll buy 
them some Canadian stamps for future communications. People from 
other countries may send International Reply Coupons for Air Mail 
-Postage or U.S. or Canadian currency as outlined above. 

By phone! (416) 640-4400 from 7PM to 9PM most week nights 
and from 10AM to 6PM most weekends. If there is no answer call 
back later. Please note I am in the Eastern time tone. 

By datalinet (416) 640-3434 - 24 hours a day. This is my BBS. 
It runs TBBS software at 300 baud with a protocol setting of 8N1. 
As there is a pre-use qualification questionnaire that must be 
filled out before full access can be gained I suggest you prepare 



your message off-line and then upload it as a Message to Sysop at 
the <&> prompt which will be available on your first call. Then call 
back in 3 - 4 days to retrieve any answers I leave. 

I will be setting up a Newdos/80 User's Group section on the 
board that will be open to all Northern Bytes readers who seek 
access. 

By MCI Mail! User name! INTL6 

ID t; 248-6778 

Note that the MCI Mail account is a temporary one and will be 
replaced sometime in early 1985 (if you find it doesn't work, try the 
user ID #: 251-7579). 

That is all for this issue. There are lots of exciting plans and 
releases on the horizon and I will try and outline some of these 
next issue. 

One major thing I will do next issue is show the method 1 u*»t»d 
to to de elop a few ZAPs to have the DOS do what I want it to do. 

These include patching the system so that every utility 
program shows spaces as spaces and not as periods, a drive activity 
indicator for the hard disk system, and ZAPs to allow use of the 
filespec.ext convention for users who are also saddled with CP/M 
or MS-DOS machines. 

Please write and tell me what you are doing and/or what you 
want to see discussed here. 



PATCHES TO CHANGE CERTAIN CHARACTERISTICS OF TASMON 
by Jack Decker 

These patches are optional and may be applied as desired to 
your working copy of TASMON. They may be applied in memory only, 
in which case they will remain in effect until the end of your 
session with TASMON, or you may use TASMON's W D command to 
write a copy of your patched TASMON to disk, 

PLEASE NOTE that these patches apply only to the following 
versions of TASMON, however, information is given to allow you to 
find the proper location to apply the patch if you have another 
version. 

MODEL I! ver. 2.22 MODEL III! ver. D7 MODEL 4; ver, 1.11 

1. CHANGE FIRST CHA RACT ER OF LABEL5 DUR ING DIMSBEMJESLY 
Using TASMON's M A (Modify memory using ASCII) command, 

change the following byte from the letter "Z" (5AH) to the desired 

first character for labels! 

MODEL I! 7486H MODEL III! 748AH MODEL 4! F436H 

If you have a different version of TASMON, key in 

F nnnn 3E 5A (where nnnn is normally 6000H ir ; the Models I & III, 

and E000H in the Model 4). The displayed address PLUS ONE is the 

byte to change. 

2. REMOVE 7-BYTE "HEADER" FROM DISASSEMBLIES TO DISK 
TASMON was written to output disassembled source code that 
could be loaded directly into Apparat's modified version of the 
Radio Shack Editor-Assembler program (as found on NEWDOS/80 
master disks). Most Editor-Assembler programs are able to read 
this source code format, but some (notably Radio Shack's Series I) 
will not read these source code files because of the seven-byte 
"header" that is placed at the beginning of these files. To prevent 
TASMON from writing this "header", use TASMON's M H (Modify 
memory) command to change two bytes starting at the addresses 
shown below. The bytes should be changed from 3E D3 to 18 19 in 
the Models I & III, and to 18 OC in the Model 4. This inserts a CTR 
instruction that bypasses the code that writes the header to disk. 
Change the two bytes starting at! 

MODEL IJ7312H MODEL III! 731 CH MODEL 4! F2EEH 
If you have a different version of TASMON, key in 
F nnnn 3E D3 (where nnnn is normally 6000H in the Models I R III, 
and E000H in the Model 4) to find the starting address to change. 

3. CHANGE AMOUNT OF KEY DEBOUNCE (MODELS I & III ONLY) 
This patch is especially useful when you are using a speed-up 
modification, or when running the Model m version of TASMON on a 
Model 4 using the 4 MHi clock speed. Using TASMON's M H (Modify 
memory) command, change the following byte from OAH to the value 
that gives the desired amount of keybounce control. For example, 
to double the normal keybounce delay, change the byte to 14H! 
MODEL I! 7A10H MODEL in: 7A53H 

If you have a different version of Model I or III TASMON, key 
in F 6000 01 00 0A. The displayed address PLUS TWO is the byte to 
change. 
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by Greg Small 
A Utility for Newdos/80 Version 2.x 

Tht Newdos/80 routines that Tony Domigan has outlined in 
this issue of Northern Bytes has finally allowed ma to put my 
TRACE/CMD routine into the public domain. 

About a year and a half ago whan I first was studying 
Newdos/80's coda thara wara times whan I was having difficulty 
determining what it was actually doing and to what value soma of 
the control bytes ware sat during actual program execution. 

I remembered the TRACE function of TRSDOS 2.3 and wished 
it was available to ma under Kewdos/80. 

So. I simply went into 2.3's code and lifted the routine to 
display the TRACE and wrote a short routine to link that code into 
Newdos/80's interrupt chain. But I was reluctant to publish the 
code as it was still protected by copyright. 

Since that time I have refined the code several times but 
always used Randy Cook's code to display a byte in hex to the 
screen. Now. however, I can publish as the code is changed to use 
the routine Tony has discovered. 

Tony has explained the two routines so I will simply explain 
what I have done. 

Line 180 defines FOLLOW as the byte to follow on the screen. 
Vou will find that the following may be of interest! Model I - 
4369H and Model III - 4289H. This is one of the STSFLAG bytes. 
Once you have the program running entering a few DOS commands 
will cause this byte to change. It is impossible to follow this 
byte's status any other way. 

Lines 220 through 290 ensure we are using Newdos/80 and 
that we are running it on a I or a III. (I would be interested to see 
it running on another machine!) If we fail this test an error is 
displayed at lines 650 through 850. 

Note the tricky use of DEFB ODDH at line 680. This is much 
used in professional programs but I have yet to see it documented. 
The code will assemble as! 



5249 215352 
524C DD 
5Z4D 217752 

5250 C34744 



LD 

DEFB 
LD 
JP 



HL,MSG1 

ODDH 

HL,MSG2 

ii67H 



but disassembles (and is seen by the Z-80) as! 



5249 215352 
524C DD217752 

5250 C36744 



LD 
LD 
JP 



HL,5253H 
IX.5277H 
4467H 



so that if line 240 is executed transfer goes to 5249H where HL is 
set to 5253H. Register IX is then set to 5277H at S24CH and the 
TF 4467H is executed at S250H. If, however line 290 is executed 
transfer goes to 524DR which is in the MIDDLE of the LD IX.5277H 
instruction and is executed as LD HL.5277H and then the JF 4467H 
instruction occurs. 

This type of code will save many bytes in a program that does 
a lot of this type of message displaying and, of course, other 
routines than message displaying could benefit from this type of 
code. 

The saving is calculated as plus one byte for the ODDH and 
minus three bytes for the JF 4467H for a net savings of two bytes 
per time this is used, 

Lines 300 through 400 do some housekeeping if we are found 
to be in a Model III at line 280. Lines 420 through 520 do the actual 
working program relocation. The form for this patching and 
relocation code is taken from Jack Decker's TRS-80 ROM Routines 
Documented (S19.95 plus S3.00 shipping from The Alternate Source). 

Lines 540 through 630 patch the working program into the DOS 
interrupt chain and fix HIMEM to protect the working program. 

Lines 920 and 930 are for DOS's use and can be studied from 
the reference given in lines 890 and 900. 

Lines 950 through 1000 do the actual setup and display of the 
byte we are following. 

Line 1040 sets up a value to add to the current stack pointer. 
Line 1050 does the actual addition and stores the result in HL. 
This value is the address stored on the stack of the actual place 
where the interrupted program will RETurn after the background 
TRACE program returns control to the interrupt service routine. 
This, in tum, will return control to the program that is running. 
This MAY simply be DOS. 

For some reason unknown to me the values needed for the 
adder are different in the two machines. The values used are 0EH 



(14) for the Model I and 14H (20) for the Modal in. Can anyone 
enlighten us for the reason for this? 

Unas 1070 through 1120 move this computed address to DE 
and display it. Than the RETurn is executed from the display 
routine and control is given to the interrupt service routine and 
eventually to the main program that was running before the 
interrupt occurred. This MAT simply ba DOS, — 

Note that the coda from lines 950 through 1000 could 
changed to display a two byte WORD or that additional code couiw 
be added hare to display additional bytes of interest. 

The actual program code follows! 

Hill ; lm »i»i. iwmiiimiilllllllll 

line 5 

10030 (1T«ACE/ASH - by Greg Snail - 17ianB5 - 19(00 

IIMI (Installs TRACE function plus for Hewdot/80 Version Z.x 

MIS! J 

HIM (Copyright 1983 by Greg 8m11 

III7I | 

IIMI (Peniiiiion to use for ran cawwcial applications it 

III9I (hereby granted - ill other riqhts reserved. 

urn ; 

Hill (progrw fnw «t original idea by Rands Cook 
1112! {relocation section frat an idea by Jack Decker 
H13I ( 





11150 ; 




iwf iiiiiiiiiiiiinmiiiiiiimm 


S2II 


10160 


ORG 


B2I0H 






11170 ; 








till 


11181 FtLUM 
10191 ; 


EOU 


HHH 


(Byte to follow 


5211 


10210 SOT 

H210 ; 


EQU 


« 




52H3A2744 


10220 


LD 


A,(4427H) 


IGct Newdos/80 H> byte 


5213 FE82 


IIZ30 


CP 


SZH 


(It it Newdos/80 Vers. 2 


5215 2042 


11210 


JR 


NZ,ERR0R1 


(NO - QO proctff error 


5207 3A2B44 


00250 


LD 


A,(442BH) 


(Get Model nurter 


52MFEI1 


00260 


CP 


I1H 


(Is it a I 


520CZ824 


10270 


JR 


Z.RELOC 


(YES - then go to RELOC 


520EFEI3 


11280 


CP 


I3H 


(Is it a m 


5211 203B 


•0290 


JR 


NZ,ERR0R2 


(NO - 90 process error 


5212 211144 


00300 


LD 


HL,U11H 


(Get Hodel 3 hifM in HL 


5215 223752 


10310 


LD 


(CETHBHZ),HL 


(Patch initialization 


5218 224652 


•0320 


LD 


(STWOH2),H. 


( f or a m 


5Z1B 217B44 


,00330 


LD 


HL,H7BH 


(Get H3 ENQUE in HL 


521E 224152 


00310 


LD 


(SETUP+1),H- 


( and patch init. 


5221 3E14 


10350 


LD 


A.14H 


(Get SP offset in A 


5223 32AE52 


00360 


LD 


(ADDER), A 


> and patch working part 


5224 21D244 


10371 


LD 


HL,44D2H 


(Get K3 SHOWY in HL 


5229 22B852 


10380 


LD 


(HCH>+1),H. 


( and patch working part 


522C 21D744 


00390 


LD 


HL,44D7H 


(Get H3 SHOHRD in HI 


5ZZF22AB52 


00100 
00110 ! 


LD 


(BYTE+1),HL 


; and patch working part 


5232 


00120 RELOC 
00130 ! 


EQU 


* 




5232Z1B952 


00410 
00150 ', 


LD 


HL,END 


(Get current END in HL 


5235 


00160 GETHEM 
00170 ; 


EQU 


* 




5235 ED5B4910 00480 


LD 


0E,(4019H) 


(Get WHEN in DE 


5239 0UA00 


00190 


LD 


BC,EH>START+1 


(Get length of prog in BC 


523CEDB8 


00500 


LDOR 




(hove working part 


SZ3E D5 


00510 


PUSH 


DE 


(Save new mnari size 


5Z3F 13 


00520 
10530 ; 


DC 


DE 


(To point to START 


5210 


10511 SETUP 
00550 ; 


EOU 


* 




5240 CD10H 


00560 
00570 


CALL 


H10H 


(CALL ENDUE to patch into 
(interrupt chain 


5213 Dl 


00580 
10590 ; 


POP 


DE 


(Get new KDOt back 


5ZH 


00600 STRMEN 


EQU 


* 




106111 i 

5211 ED534940 00620 


LD 


(1M9H),DE 


( and put it into HDO 


5248 C9 


11630 
10610 ; 


RET 




(RET to DOS READY 


5249 


H650ERROR1 
11661 ! 


EOU 


♦ 




5249 215352 


10670 


LD 


H,«SG1 


(Point HL to HSG1 


521CD0 


10680 
10690 


DEFB 


ODDH 


(Hake LD HL look like 
( LD IX to save bytes 



18 



10700 



H3G1 
5 



LB 
JP 



EOU 



HL.HSG2 
4447H 



5240 M710ERROR2 ECU 
•1721 J 

S24C 217752 M73I 

S25I C34744 1(74( 

II7SI 

Wit 

5253 11771 

•1781 

3253 54 (1791 

68 4? 73 20 7« 72 4F 47 72 6. 4D 21 6? 73 21 44 

4F72214E4577444F732F3B3I214F4E4C 

79 2E 

5274 M> 118(1 

•Mil 

S277 •W2I 



{Point HL to HSG2 

{ end JP to display ms 

{ and RET to 005 READY 



DEFH 'This progrw it for Hewdoi/81 oris.' 



DEFB «0H 



EOU 



5277 54 

48 49 
4F72 

49 20 
52VF 10 

52A0 



52A0 0010 
52A2 0101 

52A4 3AI000 
52A7 212A3C 

52AA 

32AACD484I 

52AE 

.52A0 Z10E00 
•2BI 39 

52B1 SE 

5262 23 

5263 54 

5264 212E3C 
52B7 

52B7C34340 
52B9 

5200 
00000 TOTAL 



00941 
73 2171 
21 « 6F 
4F4E4C 
00850 
••840 
IB87I 
•0881 
•1891 
0WM 
10911 
••920 
11930 
10940 
(•950 
00941 
00970 
•1980 
11991 
OHIO 
11011 
•1121 
81138 
•1(40 
01(50 
01141 
01071 
01(81 
01091 
01101 

urn 

11121 
•1138 

•1141 
ERRORS 



J 

\ 

DEFH 'This program it for Hodtl I or m only.' 
724F4772 614D2149 732144 
64 45 «C 21 49 21 4f 72 21 49 49 
79 2£ 

DEFB MM 

t 

START EOU • 

» 
» 

{Refer to lection 3.8 on page 3-3 for informtion on tht 
{following four bytes and thtir mm. 



BYTE 



DEFH 
DEFH 

LD 
LD 

EOU 

CALL 



ADDER EOU 

« 

i 

LD 
ADD 



LD 

DC 

LD 

LD 

EOU 

J> 

EOU 

EM) 



HDRD 



EN) 



SIKH 

I1I1H 

A, (FOLLOW) 
HL.3C2AH 

« 

44UOJ 
1MHVI 

1+1 

H.,1EH 
HL,SP 

E,(HL> 

HL 

D,(HL) 

HL,3C2EH 

$ 

4I43H 

t-1 

DOT 



{2 bytes for DOS'* use 

!2 bytes for counter* 

{Get byte to follow in A 
{Point to fcrten location 



{CALL SHOWY 



{CM SP adder in HL 

{ add it to SP value 

{ and start result in HL 

{HovtHL 

i over 

{ toDE 

{Point HL to screen lac. 

{J* to ShTJNRD and RET 

{Auto start at DOT 



ADDER 52AE BYTE 52AA END 5289 
FOLU0N (((• CETHEH 5235 DOT 52(1 
RELX 5232 SETUP 524( START 5ZA1 



ERR0R1 5249 
HSU 5253 
STRMEH 5244 



ERR0R2 524D 
HSG2 5277 
HDRD 52B7 



Fix NEWDOS/80 version 2 (Model TJI) Hash Code Tables 
by Tony Domigan 

Following * repeated request from a friend to describe the 
method of reconstructing a NEWDOS/80 Hash Table, I decided to 
save myself time in the future by writing a program to do this 
relatively simple but tedious task - after all, this is where a micro 
excels. Super Utility plus does the job much better than my routine, 
however, STJ+ does not support a double-sided NEWDOS/80 
configuration. 

FIXHIT is my first attempt at this task. It will reconstruct a 
HASH Code Table or HIT Sector, however, because of the limitation 
of my method, it may not be 100\ correct. 

LIMITATIONS 
I chose to do File I/O, mainly because it was something I had 
,iot tried before. In order for this method to work the following 
conditions must be met. 

1, The HIT Sector (relative sector 01 of DIR/SYS) and the 
DIR/SYS FFDE page (relative sector 03 of DIR/SYS) must be read- 
protected, and 

2. The HASH code for DIR/SYS, i.e. C4, must be in relative 
byte 01 of the HIT sector. 



Another problem occurs with FXDE's, I chose not to decode 
each FFDE for FXDE pointers. Therefore, I only check if the first 
byte of the FFDE - 90H (i.e. FXDE) and if so the old HASH code is 
moved to my new HASH table. If this code had been accidentally 
overwritten then the TABLE will have an error in it. I hope to fix 
this in my next version (if anyone requests the upgrade). 

THE PROGRAM 
Execute FIXHIT by the command* 

FIXHTT ElHdnJ 
The colon is optional and if no drive number Cdn3 is specified then 
drive zero is assumed. 

FIXHTT will read each sector of DD3/BYS and reconstruct a 
new Hash Code Table. As each sector is read a count is kept of any 
sectors not read-protected. When the new table is complete! 

1. If no hash errors but there are read-protect errors, 
WRDIRP is executed. 

2. If no hash or read-protect errors then exit to DOS. 

3. If hash errors are found then you will be prompted for your 
intentions. If you answer Y (or y) to fix the disk then the new HIT 
sector will be written and WRDIRP is executed if any sectors were 
not read-protected. However, if you answer otherwise then you will 
abort to DOS immediately. 

ENHANCEMENTS 
FIXHIT satisfies my needs for the moment, but what I may do 
in the next version is! 

1. Use SECTOR I/O in place of File I/O 

2. Decode FPDE's and FXDE's properly and 

3. Write my own WRDIRP loop tit would be much faster than 
WRDIJtP). 

Tony Domigan P.O. Box 150, Thomastown, Victoria, 3074, Australia. 



00100 { FDOffT/ASM - version 1.0 

(0110 ! NEHDOS80/V2 (HI) 

(0120 { 2nd February 1985 

00130 J For H0RTHERN BYTES I the PUBLIC DOMAIN 

00140 { by Tony Donigan 

00150 ', PO Box 150, Thonastown, victoria, 3074, Australia 

00140 !HCI-ID:254-5121. SOURCE-n):BCT039. TAB-IDJWWPIHMNN 

•0170 



5210 



5200 

5200 7E 

5201 FE0D 
5203 281C 
52*5 FE3A 

5217 2(02 
5219 23 
52M7E 
5216 FE34 
52tD3tl4 
52(f fE3( 
5211 3((5 
5213 3EA0 
5215(3(944 

5218 32BB54 
5216 32CF53 
521E 328B54 



5221 

S221 CDC981 

5224 21A453 
5227CD4744 



00180 ; 
00190 ; b - 

00200 { DE » 
00210 { HL = 
00220 { IX = 

ooz3o ; 

(0240 ; 
(0250 

00240 ! 

00270 { 

0(280 { 

(029( PARSER 

((311 

1(310 

(0320 

10330 

((340 

(0350 

0(340 

11371 NUMBER 

10380 

(039( 

10408 

•8411 BADNUM 

11421 

00430 POSTOR 

00440 

10451 

10441 J 

1(471 { 



Pointers used in FIXHTT 
FPDE counter BC' * FFDE t Page counter! 
New HIT row ptr DE' = New HIT coluM) ptr 
Buffer FPDE ptr HL' = FCB buffer (first FPDE) 
OLD HIT row ptr IY = OLD HIT colum ptr 



ORG 



5200H 



{Anywhere abv S2MH 



uTEST FOR DMVESPECn 



EOU 

LD 

CP 

JR 

CP 

JR 

DC 

LD 

CP 

JR 

CP 

JR 

LD 

JP 

LD 

LD 

LD 



« 

A,(HL) 
(OH 

ZfDWMbK 

3AH 

NZ,NUNBER 
HL 

A, (a) 
34H 

fsutDnUsufl 

3*H 

NC,P0STDR 

A,0A8H 

4409H 

(DRIVE), A 

(DRVNUH>,A 

(MRPDRVM 



{Trailing chars? 

{Assune drive (? 

{Yes, print esq 

{Colon 

{Ship if not colon 

{Yes, colon so c* next 

{Get next character 

{> Drive 3? 

{Yes, bad drive nunber 

;>4and<*3 

{Yes, we drive nunber 

{Illegal drive nunber 

{Error exit 

{Post drv nun to FEB 

{Post drv nun to banner 

{Post drive to HRMRP.n 



WWSPLAY BANNERn 



522A 



18498 BANNER 
(8580 

((510 
(0521 

0(530 { 

((54( { 

(0550 { 

(0540 OPEN 



EOU 
CALL 
LD 
CALL 



t 

(1C9H 

HLfBttttSC 

4447H 



{CLS 

{Pttomg 
{Display m 



nOPEN DDVSYS OF NOHWATED DRDOs 



EOU 



19 



522A 21D051 


W570 


LO 


HL.BUFFl 


JFCB buffer 


5Z2D 116051 


10580 


LD 


DE.FC8 


(Pt to ny FCB 


5230 0601 


00571 


LD 


B.I0H 


(LRL=Fuli sector I/O 


3232 CD2U1 


00600 


CALL 


112* 


[OPEN DWSYS 


5Z35C24C53 


00610 


JP 


CEFEXIT 


}Zmo error 


5238 3ABC54 


00620 


LD 


A,(LEN) 


iFile length fron FCB 


5238 D602 


00630 


SUB 


I2H 


(REL Count=€OF-Hn 


5230 1F 


00610 


LD 


C,A 


[Post page counter to C 




00650 ; 










00660 ; 


nSEW P03HTERS1I 






00670 J 








523E 


00680 SETUP 


EQU 


* 




523E 0608 


00690 


LD 


B.I8H 


(FPDE Slots »-7 


5240 11D055 


00700 


LD 


DE,BUFF2 


(New HIT Buffer 


5243 OO21D056 00710 


LD 


K.BUFF3 


JOld Hn Buffer 


5217 C5 


00720 


PUSH 


BC 


[Save slot/page count 


5218 D5 


00730 


PUSH 


DE 


(Save new hlT buff addr 


521? E5 


00710 


PUSH 


HL 


(Save HX buffer iddr 


521ADDE5 


00750 


PUSH 


K 


(Save old Hn buff »ddr 


521CFOE1 


00760 


POP 


H 


JIY=IX 


52« D9 


00770 


EXX 




(Switch to AF',BC',HL' 


524F El 


00780 


POP 


HL 


(HL' = HL 


5250 Dl 


00790 


POP 


DE 


JDE' * DE 


5251 CI 


00800 


POP 


BC 


;k' = bc 


5252 09 


00810 

AAfVlA » 


EXX 




(Switch to oris set 




DuqjIU t 










00830 ; 


nPOSITION TO HIT SECTORn 




DDolO f 








5253 


00850 DOT 


EQU 


» 




5253 C06E53 


00860 


CM! 


READ 


{Read GAT sector 


5256 C06E53 


00870 

itnrtrtfe t 


CALL 


READ 


[Read HIT sector 














00890 ; 

haaiia » 


npREPARE BUFFERSa 






UU7UB , 








5259 


00910 SETBUF 


EQU 


t 




525? C5 


00920 


PUSH 


BC 


(Save counters 


525AE5 


00930 


PUSH 


HL 


(Save FCB buff addr 


5256 05 


00910 


PUSH 


DE 


[Save BUFFI addr 


525C D5 


00950 


PUSH 


DE 


! Again 


5250 DDES 


00960 


PUSH 


IX 


(Move IX .. 


525F Dl 


00970 


POP 


DE 


;to DE (buff3) 


5260 010091 


00980 


LD 


BC.256 


JFull sector 


5263 C5 


00990 


PUSH 


BC 


{Save it 


5261 EDBO 


01000 nWOLD 


LDIR 




(hv ori9 buffer to buff3 


5266 CI 


01010 


POP 


BC 


(Ret byte count 


5267 OB 


01020 


DEC 


BC 


(Hinus 1 


5268 Dl 


01030 


POP 


DE 


[Save buff2 addr 


5269 13 


01010 


INC 


DE 


JPlus 1 


526A 3600 


01050 


LD 


(HLM0H 


{Load to 1st byte 


526C EDSO 


01060 NAKNEH 


LDIR 




(Zero buffer 2 


526E Dl 


01070 


POP 


DE 


(Restore buff3 addr 


526F El 


01080 


POP 


hl 


(Restore FCB buffi addr 


5270 CI 


01090 


POP 


BC 


(Restore FPDE/PAGE count 


5271 3ABC51 


01100 


LD 


A,(LEN) 


(Length of DIR/SYS 


5271 D65A 


oiuo 


SUB 


10 


(= Extra allocation 


5276 32EF55 


01120 

A4 4 1A » 


LD 


(BUFF2+1FH),A 


(Replace allocation 




UIIjU t 










omo ; 


n8EC» LOOP FPDE PAGESn 




UlldB t 








5279 


01U0 PAGE 


EOU 


t 




5279 CD6E53 


01170 
minft * 


CALL 


READ 


(Read fpde page to buffi 




lUlOU f "■-"■ 










01190 ; 


ULOOP FOR 8 FPDE SLOTS PER FPDE PAGE » 




m?flit * 








527C 


01210 FPDE 


EQU 


s 




527C 7E 


01220 


LD 


A,(HL) 


(1st byte of fpde 


527D FEOO 


01230 


CP 


0DH 


(Hot allocated? 


527F 281F 


01210 


JR 


Z.NXSLOT 


(Skip if not allocated 


5281 FE90 


01250 


CP 


90H 


(FXDE? 


5283 2005 


01260 


JR 


KZ.HASHIT 


(Not Mke hash code 


5285D07EOO 


01270 


LD 


A,(IX+1> 


(Use orig hash code 


5288 1815 


01280 

14W1 ■ 


JR 


Fixn 


(Post to new HIT 




OIZtO i 










01300 J 

mm* A t 


**m. HASH CODE FROM FUESPEC*. 












528A 


01320 HAShTT 


EQU 


« 




528A E5 


01330 


PUSH 


HL 


(Save slot pointer 


528B C5 


01310 


PUSH 


BC 


(Save slot counter 


528C7D 


01350 


LD 


A,L 


(LSBof FPDE 


528DC605 


01360 


ADD 


A.15H 


(Increment by five 


528F6F 


01370 


LD 


L,A 


(HL->Filespec 



5290 161B 


01381 STHASH 


LD 


B.tBH 


Filsespec t Ext 


5292 AF 


11390 


XTJR 


A 


Zero accun 


5293 AE 


01100 HLOOP 


XOR 


(HL) 


XOR (HL) with aeon 


5291 23 


OHIO 


INC 


HL 


Next char in filesetc 


5295 07 


11120 


RLCA 




Rotate left result in A 


5296 10FB 


01130 


DJNZ 


HLOOP 


Loop for 11 characters 


5298 FEOO 


omo 


CP 


ICH 


Hash = 1 


529A 2001 


01150 


JR 


flZfllnuiUn 


Skip if not 1 


529CX 


01160 


INC 


A 


Zero not allowed 


5290 CI 


01170 HASHOK 


POP 


BC 


Restore slot counter 


529EE1 


•1180 


POP 


HL 


Restore FPDE pointer 


529F 12 


01190 Fixn 


LD 


(DE),A 


Post code to new Hn 




llDBB •"" 










•if 1 • ; 


EXPOSITION TO NEXT FPDE SLOT IN PAGEo 


52A0 


SIDZD f 

S1530 NXSLOT 


EOU 


» 




52A0 CS 


01510 


PUSH 


BC ( 


Save slot counter 


52A1 D5 


11550 


PUSH 


DE ( 


Hove new tffT row counter 


52A2C1 


11560 


POP 


BC i 


ToBC 


52A3 112000 


01570 


LD 


DE,20H ( 


Ircr all slots by 32 


52A6 19 


01580 


ADD 


HL.DE ( 


FCB row * +32 


52A7E5 


11590 


PUSH 


HL ( 


Save HL 


52A8 DD19 


01600 


ADD 


K.DE ( 


Old Hn row « +32 


52AAC5 


01610 


PUSH 


BC ( 


Hove old DE to 


52AB El 


01620 


POP 


HL ( 


to HL so that 


52AC 19 


01630 


ADD 


HL,DE ( 


NewHn * +32 


52ADE6 


01610 


EX 


k,hl ; 


Xf er back to DE 


52AEE1 


01650 


POP 


hl ; 


Recover FCB slot addr 


52AF CI 


11660 


POP 


BC i 


Recover slot count 


52B0 10CA 


01670 


DJNZ 


FPDE i 


Loop for 8 slots 




11680 ( 










11690 ( 


«LOOP FOR ALL FPDE PAGES" 




01700 ( 








5282 


11710 KXFPDE 


EQU 


f 




52B2 D9 


01720 


EXX 




AF', BC', HL' 


52B3 OD 


01730 


DEC 


c 


Decrement page count 


52B1 2810 


01710 


JR 


z.wrrcK 


Finished, check hit sr's 


52B6 13 


01750 


INC 


DE 


Bunp new hit colunn ptr 


52B7FD23 


01760 


INC 


IY 


Bump old hit eolum ptr 


5269 C5 


01770 


PUSH 


BC 


Save 


52BA D5 


01780 


PUSH 


DE 


new 


52B8E5 


01790 


PUSH 


HL 


pointers 


52BC FDE5 


01800 


PUSH 


IY 


to stack 


52BED9 


01810 


EXX 




Norrprirte registers 


52BF DDE1 


01820 


POP 


IX 


Restore 


52C1 El 


01830 


POP 


HL 


New pointers 


52C2D1 


01810 


POP 


DE 


To the native 


52C3 CI 


01850 


POP 


BC 


Registers 


52C1 18B3 


01860 


JR 


PAGE 


Loop till next page 




01870 ( 










01880 | 

Ai AAA t 


nCOh? ARE 0U> « NEW Hn SECTORS*. 




01890 ( 








52C6 


01900 lOTCK 


EQU 


« 




52C6 DD210000 01910 


LD 


IX,0000H 


Nemwtch counter 


52CA 21D055 


01920 


LD 


HL.BUFF2 


New hash table 


52CD 11D056 


01930 


LD 


DE.BUFF3 


Old hash table 


52D0 0600 


01910 


LD 


B.00H 


256 bytes 


52D2 1A 


01950 CKLOOP 


LD 


A,(DE) 


Get old hash code 


5203 BE 


11960 


CP 


(HL) 


CoHpare with new 


52D1 2802 


01970 


JR 


Z,SA«E 


Skip if the sane 


5ZD6DD23 


01980 


DC 


IX 


Bunp error count 


52DB 23 


01990 SAME 


DC 


HL 


Next new hash code 


5209 13 


02000 


INC 


DE 


Next old hash code 


5ZDA 10F6 


02010 


DJNZ 


CKLOOP 


Loop for whole table 


52DC DDE5 


12020 


PUSH 


IX 


Nove error count 


SZOED1 


02030 


POP 


DE 


toDE 


52DF7B 


12010 


LD 


A,£ 


Errors always <256 


52E0 21D253 


12050 


LD 


(LtERnNUH 


Point to error nun * 


52E3 F5 


02060 


PUSH 


AF 


Save error count 


52E1CDD7H 


02070 


CALL 


UD7H 


Load to string 


S2E7 210253 


12080 


LD 


ft_*EHRNUh 


Point to error mg 


52EACD67H 


02090 


CALL 


U67H 


Display nun errors 


52EDF1 


02100 


POP 


AF 


Restore nun errors 


52EEFE00 


02110 


CP 


I0H 


No errors? 


52F0 Z85F 


02120 


JR 


Z.CLQSE 


Yes, emit fix rtne 


52F2 21E953 


02130 


LD 


H^WPRMT 


Fix Y/N Hsg 


52F5CD67H 


02110 


CALL 


U67H 


Display nsg 


52FB CW900 


02150 


CALL 


19H 


(KBUAn 


52FBF620 


02160 


OR 


20H 


(Cvrt to 1/c 


52FDFE79 


02170 


CP 


79H 


yes? 


52FF 280C 


02180 


JR 


Z.YES 


(then f ixit 



20 



5301 AF 


02190 


XOR 


A 


{Zero acci* 


5380 


03000 NRPERR EQU 


{ 




5312 329AM 


12200 


LD 


(RCOUNTM 


[Stop RP fix 


S380 3ABA51 


03010 LD 


A, (NEXT) [Get next pointer 




53*5 211051 


02211 NO 


LD 


U IAMCT 


(Abort mg 


5390 3D 


03020 DEC 


A JPt to last sector read 




5*>18CD47H 


r?270 


CALL 


W7H 


[Display it 


5391 E5 


I3ITC0 PUSH 


HL [Save FCB ptr 




5™8 1&11 


P7730 


A 


0.(«E 


;JP over write rtm 


5392 214751 


0^110 LD 


HLtR"^ [Sector nun 




5™D 21JR51 


02210 YES 


ID 


HLtWMSG 


[Write wesmo 


5395C007H 


03050 CALL 


WH [Post to ♦ 




5310 004711 


02250 


CALL 


1167H 


[Display it 


5398 215951 
539BCD47H 


03060 LD 
03070 CALL 


HL.NRPHSG [Nr m 






02260 [ 








M67H [Display it 






C2270 ; 


i POSITION TO KIT SECTORn 


539EZ19A51 


03080 LD 


HLiRCOUNT [NR error count 






02280 i 








53A1 31 


03090 DC 


(HL) [Bunp counter 




5313 11B051 


C2290 


LD 


DE,FCB 


JPttoFCB 


53A2E1 


03100 FOP 


HL [Restore FEB ptr 




5316 21D051 


02300 


LD 


HL.BUFFl 


JPt to FCB buffer 


53A3C9 


03110 RET 


[Continue processins 




5319 3EC9 
531B 32SC53 


C2310 
02320 


LD 
LD 


A.CC7H 
(NOERR),A 


[Patch RET NZ to RET 




fl*Tl**fl • 






[To stop dupe err itsg 




03^0 j "STRINGS AND STORAGEn 




531E CD3FU 
5321 CD6E53 


02330 SGF 
02310 GAT 


CALL 


H3FH 


[Hove to start of file 










CALL 


READ 


[Read GAT 


53M46 


KJiTU t """" " 

33150 BANHSC DEFH 


'FDODT for NDOOS84/V2 - Drive on Test -> ' 






02350 ; 








1958«195120 646F72 20«15571HF53 






02360 ; 


nMOVE HEM HIT TO FC8 BUFFERn 


36 30 2F 56 32 20 2D 20 H 72 69 74 45 20 6F 4E 






02370 ; 








20 51 45 73 71 20 2D 2D 3E 20 






5321 21D055 


02380 MOVE 


LD 


HL,BUFF2 


[New Hn buffer 


53CF30 


03160 DRVNUM DEFH 


'»' 




5327 11D051 


02390 


LD 


DE,PUFF1 


[FCB buffer 


5X0 0A 


03170 DEFB 


OAH 




532A 010001 


02100 


LD 


BC, 256 


[Bytes to nove 


5301 0D 


03180 DEFB 


ODH 




5320 EDBO 


02110 


LOIR 




[Xfer it 


53D2 20 


03190 ERRMUM DEFM 


' H ' 






0Z1Z0 J 








20 18 21 


1 








02130 ; 


nPREPARE FC8 FOR READ-PROTECT WOTEn 


53D4 18 


03200 DEFH 


'Hash code Errors ' 






C2W ; 








61 73 48 20 63 6F 61 45 20 15 72 72 6F 72 73 20 




532F 3AS051 


02150 


LD 


A, (FCB) 


[FCS 1st bate 


53E7 0A 


03210 DEFB 


OAH 




5332 F601 


02160 


OR 


(1H 


[Hake read-protect 


53E8 0D 


03220 DEFB 


ODH 




5331 37B051 


02170 


LD 


(FCB), A 


[Amend FCB 


53E9 52 


03230 WRPRMT DEFH 


'Reply Y/N to Repair Diskette Hash Code Table • 


->' 


5337 3"B154 


02190 


LD 


A,(FCB+1) 


[FCB 2nd bate 


45 70 4C 79 20 59 2F IE 20 71 6F 20 52 45 70 41 




5?3A F610 


02190 


OR 


i:h 


[Do not update EOF 


69 72 20 H 69 73 66 65 71 71 45 20 18 41 73 48 




53X 328151 


02500 


LD 


(FC8+1),A 


[Amend FCB 


20 13 6F 61 65 20 51 61 62 4C 45 20 2D 20 3E 






mei a * 








5119 PA 
511A 0D 


03210 DEFB 
03250 DEFB 


OAH 
ODH 






Colo J— ■ 
02520 ; 


n-KTTE kTTH VERJFYw 
















541B 57 03260 HRMSG DEFM 'Writing the Corrected Hit Sector Now' 
72 49 71 49 6E 67 20 71 48 45 20 13 4F 72 72 45 




533F 


DZ530 i 
02510 WRITE 


EGU 


* 






533F 21DC51 


02550 


LD 


HL.BUFFl 


[FCB buffer 


43 71 45 41 20 IB 49 71 20 53 45 43 71 4F 72 20 




5312 11B051 


02560 


LD 


DE,FCB 


[DE -> FCB 


1E4F7v 


r 






5315 0600 


02570 


LD 


B.O0H 


[LRL=254 


513F OD 


03270 DEFB 


0OH 




5317 CD3CH 


02590 


CALL 


H3CH 


[Write with verify 


5110 2A 


03280 NHHSG DEFH 


'HABORTINGIX Per Request' 




53W 2805 


C2590 


JR 


Z.CLOSE 


[Exit if no error 


2A 11 12 1F 52 51 19 1E 17 2A 2A 20 50 45 72 20 




53TC F690 


02600 EREXJJ 


OR 


80H 


[Hake long err «sg 


52 45 71 75 65 73 71 






531E CD09U 


02610 


CALL 


H09H 


[Display error «sg 


515B 0D 03290 DEFB ODH 
K59 11 03300 NRPHSC DEFM 'DIR/SYS FRS '. ' 
19 52 2F 53 59 53 20 16 52 53 20 3A 20 






0/6ZU t 

02630 ; 


wTJLOSEFCBn 








02610 J 








5147 30 """"" ""*" " r ™ '"" ' 


ujoiv rron uo-n 


vu 




5351 


02650 CLOSE 


EGU 


* 




30 20 








5351 CD28W 


02660 


CALL 


H28H 


[Close FCB 


514A69 


03320 DEFH 


'is NOT READ-PROTECTED' 




5351 3A9A51 


02670 


LD 


A,(RCOUNT) 


[How nary rp errs? 


73 20 « * 51 20 52 15 11 U 2D 50 52 IF 51 15 




5357 FEOO 


02680 


CP 


m 


[No errors? 


13 51 15 H 






5359CA2M0 


CZ690 


JP 


Z.1C2DH 


[Exit it so 


517F 0A 


03330 DEFB 


OAH 




525C 219A51 


02700 


LD 


HL.RCOUNT 


[Rp err no * 


5180 OD 


03310 DEFB 


ODH 




535F CDD7H 


02710 


CALL 


HD7H 


[Hove to * 


5181 57 


03350 WRDIRP DEFM 


'HRDIRP,' 




5342 218A51 


02720 


LD 


H.,KPTMSG 


[Pt to err nuh * 


52 H 19 52 50 2C 






5365 067H 


02730 


CALL 


H47H 


[Disp nsg 


5188 30 


03340 HRPDRV DEFB 


30H 




5368 218151 


02710 


LD 


a.HRDIRP 


[HSDIRPCrD 


5139 0D 


03370 DEFB 


ODH 




536B C255H 


02750 


JP 


H35H 


[Execute HRDIRP.n 


513A52 


03380 RPTMSG DEFM 


'Read-Protecting ' 






If*?/ A * 








45 61 61 2D 50 72 4F 71 65 63 71 49 4E 47 20 






I'C/OU t 












02770 J 


nREAD SECTORn 




549A 00 
519B 00 


03390 RCOUNT DEFB 
03100 DEFB 


00K 
00H 






v&Jtiv t 










53AE 


02790 READ 


EQU 


* 




549C 18 


03110 DEFM 


'H ' 




536E C5 


02800 


PUSH 


BC 


[Save slot count 


20 








536F £5 


02310 


PUSH 


HL 


[Save slot pointer 


519EH 


03120 DEFH 


'Directory Sectors' 




5370 D5 


02320 


PUSH 


DE 


[Save new hit ptr 


49 72 45 43 71 4F 72 79 20 53 65 43 71 4F 72 73 




5371 21D051 


02330 


LD 


HL.BUFFl 


[FCB buffer 
[FCB 


51AF OD 


03130 DEFB 


ODH 




5371 11B051 


02810 


LD 


DE.FCB 




Dario ; 






5377 010000 


02350 


LD 


BC.OOO0H 
M36H 


[LRL=256 
[Read sector 




03150 J m F C B a 




537A C036H 


02860 


CALL 




03160 } — 






537DD1 


02870 


POP 


DE 


[Restore new row ptr 


5«0 H 


03170 FCB DEFH 


'DIR/SYS!' [Filespec 




537E El 


02880 


POP 


HL 


[Restore feb row ptr 


19 52 2F 53 59 53 3A 






537F CI 


02890 


POP 


BC 


[Restore slot count 


51B8 30 


O3180 DRIVE DEFH 


'0' [Drivespec 




5380 F5 


02900 


PUSH 


AF 


[Save error count 


5139 00 


03190 DEFB 


ODH 




5381 FE1C 


02910 


CP 


1CH 


[EOF? 


51BA 00 


03500 NEXT DEFB 


00H [Next sector pointer 




5383CA1C53 


02920 


JP 


Z.EREXJT 


[Error exit 


51B8 00 


03510 DEFB 


00H 




5386 FE1D 


02930 


CP 


1DH 


[Past EOF? 


5*30 00 


03520 LEN DEFB 


O0H [LSB length of file 




5388 CA1C53 
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ANCHOR SIGNALMAN MARK XII DTK FIX 

[EDITOR'S NOTE! This information has been provided by Guy 
Cmer, SYSOP of the 8/N/l #001 BBS (the BBS phone number is (904) 
377-1200). Unfortunately, the instructions below are not as clear 
as I might wish, but I believe that the subject matter will be of 
great interest to many owners of Mark XII Modems. If any 
NORTHERN BYTES reader would like to write instructions that are 
a bit clearer, or better yet, draw a pictorial diagram showing this 
modification, we would like to publish it in these pages. In the 
meantime, please consider the instructions below as incomplete, and 
for use by EXPERIENCED HARDWARE HACKERS ONLY!!! 
NORTHERN BYTES assumes NO LIABILITY WHATSOEVER should 
you attempt to use these instructions and damage your Modem or 
any other part of your system!!!!!! 

The Anchor Signalman Mark XII does not support the RS-232 
DTR (data terminal ready) signal. Too bad, since at *250 
(discounted) this is probably the cheapest stand-alone 1200 bps 
modem available, and seems to work just fine otherwise. 
Onfcrtunataly, quite a bit of software (BBSs especially) depend on 
DTR to hang up the phone. 

This file describes a hardware fix which will add DTR to the 
Mark XII. Obviously, this voids your 2-year warranty. However, 
the same thing COULD be done with an external box. 
You will need! 

1 - 2N4401 transistor 

1 - 10K ohm 1/4 watt resistor 

* short piece of thin wire (#30 wirewrap wire suggested) 

shrink-wrap £ tape (to do it right) 

en exacto knife 

solder, soldering iron, and the ability to use it 

i! Using a flat-Made screwdriver, open the Signalman case. 
Try not to mangle it too badly, 

2) Remove the circuit board and turn it so that the solder side 
is facing up, and the serial cable is at the bottom. 

3) 11 should say "Anchor Automation Inc 00472 Rev A" in the 
upper right-hand coiner. If it doesn't, this may not work, or may 
not make sense. 

4) In the lower right-hand corner of the board, just to the left 
and abovs the right-hand phone connector, you will notice two 
vertical grcups of three pads. The left group has no traces coming 
frcm it. The right group has traces coming from the bottom and top 

t) Cut the trace coming from the bottom right-hand pad. Try 
to do this near to the pad. 

6) Position the 2N4401 transistor with th« flat side toward 
the boardj and the wires toward the top of the board. 

7) Solder the FIGBT-hand wire of th* transistor to the lower 
right-hand pad of tne group of six that you located above. (The one 
that you cut the traca to.) 

8! Solder the MJBDIJE wire ef the transistor to the cut trace, 
on the other side of the cut. 

9) Solder one end of the 10X resistor to the remaining wire of i 

the transistor. 

10) Solder a 3* piece of wire to the other end of the 10K 

resistor. 

1 1 ) Slip a piece of heat-shrink over the resistor, and shrink. 

12) Now, find the group of pads coming from the RS-232 cable. 
Find the 4th pad from the left, and 2nd from the bottom. There 
should be traces coming from the pads just above and below it. 

13! Solder the other end of the wire to this pad. t%C% 



14) Put a piece of tape over the whole shebang, Just to keep it 
from moving. 

15) That's it! The modem should now observe DTR. If the 
DTR signal is or negative voltage, the telephone line (through the 
on-board relay) will be disconnected from the modem. If the DTR 
signal is above a couple of volts then everything works normally. 

16) Make sure that you connect DTR to your computer and that 
your computer asserts DTR! The modem will NOT operate withou* 
DTR asserted! 

17) If DTR is dropped, the line to the modem will be dropped. 
The modem should notice it and drop carrier detect to your 
computer, as well as dedde to hang up on its very own. At this 
point, you can bring DTR back up, and the caller (or callee) should be 
gone. I have no idea what the timing should be - whatever it takes 
the relay to operate. 1/10 second should be more than ample. 

18) Ynu will soon discover why people with Hayes modems are 
constantly pulling the front off to operate the DIP switches. PC- 
Talk (and maybe other programs) insists on dropping DTR when you 
exit or change communication parameters, Oh will, you can't have 
everything! 

19) Oh yeah - quit gawking and put the thing back together. 

20) Pray. TEditor's note: I suggest you do this before you 
begin this project!!!] 

INSTALLING TURBO PASCAL ON THE TRS-80 MODEL 4 
by John T. Phillipp 

There has been a lot of interest in structured programming 
lately, especially Pascal, but it has been hard to find a good Pascal 
compiler that will run on the TRS-80. 

Borland International's TURBO PASCAL is an excellent buy. 
It has all the features of standard Pascal, plus a number of 
extensions, and retails for only S49.95. It compiles to 2-80 machine 
code, not P-code, so programs run very fast. It will run on the 
Model 4 under CP/M. 

TURBO comes with a "Terminal Installation Program", and 
must be installed on your computer before it can be used. I had a 
devil of a time with that, since the TRS-80 Model 4 is NOT on their 
list, and the folks at the Borland technical support seem to think 
"computer" is spelled "I-B-M". I finally got it figured out with a 
lot of help from Mike Winterer, one of my fellow members at 
SAGATUG (the San Gabriel Valley TRS-80 User's Group). 

Here are the directions to get TURBO Pascal installed on a 
TRS-80 Model 4 running Monteiuma Micro CP/M 2.2 version 1.4! 

1) Enter the TINST program! TINST <ENTER> 

2) Choose option <S> (screen installation) 

3) Enter #4 (ADM-3 terminal) to "Which Terminal" 

4) Enter "YES" to "Do you want to modify the definition before 
installation" 



The terminal specifications will be displayed one by one. 
be left es-is, so just press <ENTER> 

5) Terminal type! Change to "TRS-80 Model 4 CP/M" 
65 Send a reset string to the terminal! Change to "Y" 

7) Reset string! Change to 14 26 

8) ERASE TO END OF LINE! Change to 21 

9) START HIGHLIGHTING command! Changs to 22 

10) END HIGHLIGHTING command! Change to 22 



Most will 



ths installation procedure follows the TURBO 

will 
the 



Th» rssst of 
reference manual. Kith these codes, the LowVideo procedure 
put the screen in reverse vidao until it is cancelled by 
New.Vidao procedure. The 22 cods acts a toggle (thanks, Mike). 

I hops; that this o f use ta the readers of Northern g y*{ ^ 

Reported by Greg Small 

While creating a message to send to Tony Domigan in 
Australia via MCI Mail, Greg found a bug in NEWDOS/80 that ha 
says ha has never seen documented. As an example of this bug, 
name a file TONY/TXT, Then try to RENAME TONY/TX" 
TONYi/TXT. It appears that it is impossible to rename any file £i 
another filename that starts with the letters "TO" without 
explicitly using the separator TO, because NEWDOS/80 will pick up 
the first two letters of this filename and treat thgm as the 
separator TO, This happens on both the Models I and III. It is 
possible to use the RENAME command properly provided the 
separator is included (in other words, RENAME TONY/TXT TO 
TONY1/TXT wiU wark). Using a comma in place of the word "TO" 
won't work either. 



Model 4 owners: 

Big Blue ain't got NOTHIN' on YOU! 



You DON'T need an IBM to run IBM software! There are dozens of programs 
that will convert TRS-80 software for execution on the IBM PC and 
compatibles. But the TRS-80 Model 4 is one of the most versatile machines 
available. There is a ton of software available for the Model III and the CP/M 
modes of the Model 4. There are more packages appearing every day for the 
Model 4 mode. And now. you can run a substantial portion of software written 
for the IBM on your lowly TRS-80 Model 4! 

How? With Gee-Whiz Convert, a new utility from Dennis Allen and The 
Alternate Source. GW-Convert is a collection of programs and subroutines 
designed to translate IBM BASIC programs for execution on the TRS-80 
Model 4 (in the 4 mode only). Plus, if you have either the Radio Shack or 
Grafyx Solution high resolution board. EUEN GRAPHICS ARE 
TRANSLATED. A high-res board is NOT required to use GW-Convert, but it is 
required if you want the graphics coverted. Persons using the Radio Shack 
high-resolution board may require the Grafyx Solution software for proper 
operation. This is available from The Alternate Source. 

Some of the many IBM BASIC commands are converted include BEEP, 
CIRCLE. COLOR. CSRLIN. DATES. DRAW. FILES. GET. INPUT. LINE. 
LOCATE. OPEN. PAINT. POINT. PRESET. PUT. RANDOMIZE. RESET. RND. 
SCREEN. TIMES and WIDTH. Programming hints and tips are included for 
special handling of the ASCII character set. CIRCLE. CKLS. communications. 
DRAW, graphics. INKEYS. INPUT, joystick commands. KEY function. 
SCREEN function, softkeys and the UIEW command. GW-Convert includes 
several functions and subroutines that may be merged with your new Model 4 
programs and sold without any royalty. GW-Convert is a must for software 
houses and programmers that want their software to be compatible with as 
many machines as possible. 

GW-Convert includes a 50-page, indexed manual and all software needed to 
expand your TRS-80 program library with the thousands of IBM programs in 
the public domain and otherwise. The entire package is only $99.95 and 
available immediately from The Alternate Source. 704 North Pennsylvania 
Avenue. Lansing. Michigan. 48906. Telephone information is available by 
Phoning (517) 482-8270. Although the documentation contains much 
technical programmer information, it is assumed that the user has some 
knowledge of BASIC. A knowledge of high-resolution commands may also be 
needed. Programs that use the IBM communication protocol may also require 
a BASIC compiler to execute properly on the Model 4. 

The Grafyx Solution High Resolution Board for the Model 4 is $199: Grafyx 
Solution software. GBAS1C 3.0 (for use with a Radio Shack high-res board) is 
$49.95. Software is included with the Grafyx Solution h/r board. Both are 
available from TAS. 
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The EDM Macro COMPiler 
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NORTHERN BVFB 

c/o Jack Decker 

1804 West 18th Street 

Lot *15S 

SauK Ste. Marie, Michigan 49783 

MCI Mail Addresst 108-7413 

Telex: 4501087413 

(Answerback: 6301097413 MCI) 
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The Alternate Scarce, 704 N. Peimiyhiairta, Unttee, Ml «**• 
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